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CHAPTER  1 


GENERAL  INTRODUCTION  AND  REVIEW  OF  THE  LITERATURE 

\ 

The  development  of  effective  computer  algorithms  for 
general  problem  solving  has  long  been  considered  one  of  the 
fundamental  goals  of  Artificial  Intelligence  research. 

Within  the  AI  community  there  appear  to  be  two  distinct  points 
of  view  concerning  the  design  of  such  algorithms.  The  first  or 
"formalistic"  view  is  based  on  the  claim  that  problem  solving 
is  a special  case  of  theorem  proving.  Here,  a problem  solving 
system  begins  by  formulating  the  problem  as  the  axioms  of  a 
logical  system.  Next  a mechanical  theorem  prover  is  applied 
to  produce  a proof  of  the  existence  of  a solution  to  the  prob- 
lem. Usually  the  techniques  used  to  produce  the  proof  are 
independent  of  the  particular  problem  area.  Finally  the  proof 
is  translated  back  into  a solution  of  the  original  problem. 

This  methodology  for  general  problem  solving  is  quite 
attractive.  The  development  of  algorithms  may  concentrate 
on  the  formal  theorem  prover  rather  than  on  the  specific 
problem  area , so  each,  advance  may  contribute  to  problem 
solving  as  a whole.  Theorem  proving  may  be  analyzed 
mathematically  in  terms  of  consistency,  completeness,  and 
adequacy.  Eventually  we  may  be  able  to  compare  the  efficiency 
of  two  algorithms  without  comparing  the  efficiency  of  two 
implementations.  Since  the  descriptions  of  these  algorithms 
are  precise  mathematical  statements,  they  can  be  easily 
communicated.  Finally  the  meta-theorems  which  may  be  proved 


are  often  elegant  and  interesting  in  their  ovm  right. 

However,  such  an  approach  has  so  far  proved  to  be 
extremely  inefficient.  Among  the  reasons  for  this  are  the 
following;  Theorem  provers  do  not  use  higher  level  planning, 
and  their  search  procedures  seem  to  lack  structure.  They  do 
not  make  use  of  specialized  information  about  the  problem. 

Indeed,  the  very  generality  of  vmiform  procedures  seems  to 
imply  that  information  about  specific  problem  domains  cannot 
be  included.  Theorem  provers  almost  always  use  a poor  notation, 
such  as,  for  example,  n applications  of  the  successor  function 
to  represent  n.  While  we  may  formalize  any  fact  within  predi- 
cate calculus  it  is  more  difficult  to  formalize  how  to  use 
that  fact.  Such  information,  which  is  sometimes  called 
procedural  knowledge,  often  cannot  be  given  to  a theorem 
prover  at  all.  Finally  theorem  provers  tend  to  get  "lost"  in 
what  are  minor  aspects  of  a problem.  For  example  most  theorem 
provers  find  it  difficult  to  show  that  3 times  2 is  6;  worse 
still,  they  find  it  more  difficult  to  show  that  3 times  2 is  not  7. 

The  other  point  of  view  among  AI  researchers  is  called 
"intuitive".  Here  programs  are  designed  to  conform  to  ideas 
about  how  people  solve  particular  problems.  Usually  these 
problems  come  from  some  toy  domain.  These  intuitive  systems 
are  strong  exactly  where  the  formalistic  systems  are  weak. 

That  is  they  are  efficient  but  obscure.  For  example,  it  is 
clear  that  Winograd's  blocks  world  system  [44]  is  an  effective 
program;  yet  there  is  no  simple  explanation  of  exactly  how  it 
works . 
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Our  ovm  approach  to  problem  solving  has  been  betMsen  these 


two  extremes  but  closer  to  the  first.  We  began  with  a new 
theory  of  formal  deduction  which  is  based  on  a hierarchical 
system  of  cooperating  theorem  provers.  Using  a special  case 
of  this  theory  we  developed  a computer  program  which  appears 
superior,  on  an  initial  set  of  test  problems,  to  resolution- 
based  schemes;  we  then  extended  the  theorem  proving  system 
in  two  directions.  The  first  of  these,  partial  evaluation, 
allowed  procedural  knowledge,  heuristics,  and  domain-dependent 
information  to  be  given  to  the  theorem  prover.  The  second 
extension,  completions,  is  a way  of  summarizing  the  partial 
proofs  developed  by  a theorem  prover  with  an  eye  toward 
producing  useful  lemmas.  The  theorem  prover  together  with 
these  extensions  serves  as  the  interpreter  for  a programming 
language,  which  we  call  Dilemma.  This  language  is  of  very 
high  level.  The  general  objective  underlying  the  design  of 
Dilemma  has  been  to  provide  a programming  language  in  which 
all  of  the  diverse  heuristics  of  successful  AI  programs  may 
be  used  in  conjunction  with  the  naturalness  and  clarity  of 
the  predicate  calculus.  Finally  we  wrote  a program  in  Dilemma, 
which  produces  proofs  for  a small  subset  of  geometry  theorems. 
Experimental  results  show  that  this  program  can  solve  most  of 
the  geometry  problems  solved  by  intuitive  AI  systems;  yet  the 
program  is  much  shorter. 


Our  experience  suggests  that  the  techniques  used  by 
Dilemma  significantly  extend  the  range  of  application  of 
resolution-based  systems.  In  some  cases  these  techniques 
give  a realistic  alternative  to  the  more  ad  hoc  intui- 
tive programs,  with  the  advantage  that  programs 
written  in  Dilemma  are  much  easier  to  write  and  to  read  and 
vet  not  much  more  time  consuming  for  a machine  to  execute. 

The  remainder  of  this  chapter  is  a historical 

review  designed  to  show  how  our  work  is  related  to  previous 
research.  Chapter  2 develops  the  theorem  proving  system 
mathematically.  Chapter  3 concentrates  on  the  language. 
Chapter  4 describes  the  geometry  program.  Chapter  5 gives 
the  experimental  results  which  we  obtained  with  the  geometry 
program.  Finally  Chapter  6 gives  our  conclusions  and  some 
ideas  on  future  work. 


1.1  Declarative  vs«  Imperative  Languages 


In  1958,  John  McCarthy  [25]  proposed  writing  a program  for 
solving  problems  by  manipulating  sentences  in  a formal  language. 

He  wished  to  have  a program  which  would  learn  in  a way 
similar  to  the  way  humans  do.  McCarthy  argued  that,  in 

order  for  a program  to  be  capable  of  learning  something  it  must 
be  capable  of  being  told  about  it.  Therefore,  interesting 
ideas  must  be  expressible  in  simple  ways.  To  focus  on  simple 
ways  to  express  ideas  he  looked  at  the  difference  between 
j the  form  of  language  used  to  teach  people  and  that  used  to 

i teach  machines.  The  difference  was:  a machine  is  instructed 

mainly  in  the  form  of  a sequence  of  imperative  sentences  while 
^ a person  is  taught  mainly  in  declarative  sentences  describ- 

I 

^ ing  the  situation  in  which  action  is  required  together  with 

a few  imperatives . Some  tasks  are  given  to  people  in  the  first 
form,e.g.  cooking  directions,  how  to  build  a model  airplane, 

how  to  knit.  However,  complex  tasks  such  as  how  to 

i 

prove  a theorem  of  mathematics  are  taught  declaratively . 

* McCarthy's  distinction  between  declarative  and  imperative 

languages  is  basic  to  our  work.  Essentially,  our  view  is  that 

• declarative  languages  do  not  contain  f low-of-control  statements. 

They  contain  definitions,  concepts  and  facts.  Any  of  these 

\ may  be  applied  at  any  place.  On  the  other  hand,  imperative 

f 

languages  have  DO  loops,  GO  TOs,  WHILES^  and  other  ocntrol  dictions, 
all  of  which  serve  to  specify  what  to  do  next. 
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1.1.1  Advantages  of  Declarative  Languages 

(1)  Previous  knowledge  can  be  used.  A machine  given  a 
declarative  sentence  can  integrate  it  into  all  the 
previous  declarations. 

(2)  Declarative  sentences  have  logical  consequences. 

Ideally,  the  machine  could  automatically  deduce  for 
itself  the  consequences  of  what  it  already  knows. 

(3)  Since  the  declarative  sentences  may  be  accessed  in  any 
order  their  meaning  Is  much  less  dependent  on  the  order 
that  they  are  given  to  a machine.  This  can  facilitate 
later  improvements  (or  afterthoughts) . 

(4)  The  effects  of  a new  declarative  are  less  dependent 
on  the  previous  state  of  the  system.  When  a change 

is  made  to  an  imperative  system  it  generally  requires 
much  detailed  knowledge  about  the  system. 

In  declaratives,  changes  may  be  made  knowing  less. 

(5)  Declarative  statements  are  easier  for  people  to 
understand.  A long  program  in  an  imperative  form 

is  usually  difficult  for  a person  to  follow.  He  must 
first  learn  the  global  flow  of  the  program  and  then 
the  detailed  interactions  of  each  part.  Parts  of  declarative 
programs  on  the  other  hand  may  be  understood  in  isolation. 


y 


{ 


\ 


(1)  Imperative  programs  are  faster,  since  the  flow  of 
control  is  explicit  and  no  search  is  required. 


(2)  Computers  execute  imperative  instructions. 

The  problem  of  writing  a compiler  or  interpreter 
is  simplified  since  the  source  and  target  languages 
are  of  similar  form. 

(3)  When  it  is  clear  how  to  do  something,  it  is  easier 
to  state  it  as  an  imperative;  when  we  try  to  encode 
a sequence  of  commands  as  declaratives  v/e  have  to 
use  unnatural  tricky  constructions,  such  as  state 
variables . 

(4)  The  search  strategies  can  be  explicit  in  imperative 
forms.  If  we  do  not' know  the  correct  search  strategy 
then  we  do  not  really  know  how  to  solve  the  problem. 

In  this  case  the  use  of  declaratives  just  hides  our  ignorance. 

1 . 2 Deductive  Languages 

The  fact  that  imperative  programs  are  faster  has  often 
been  considered  to  outweigh  all  the  advantages  of  declarative 
programs.  Almost  all  computer  languages  have  been  imperative. 
Minsky  [26]  in  his  review  of  AI  felt  that  languages  of  the 
type  we  are  calling  declarative  could  best  be  called 
"descriptive".  This  was  based  on  the  view  that  each  program 
statement  would  represent  a high  level  abstract  descrip- 
tion of  a situation.  Hewitt  [20l  offered  the  name 
"procedural"  for  the  class  of  languages  we  call  imperative. 
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He  claimed  that  knowlege  could  best  be  represented  in  a 
machine  in  the  form  of  statements  of  a language  which  could 
be  directly  executed,  e.g.,  a definition  would  be  a list  of 
properties  and  the  code  to  actually  test  if  an  item  had 
these  properties. 

Some  three  years  after  his  first  paper,  McCarthy  [25] 
gave  a sketch  of  how  his  program  would  operate.  He  stated 
that  a logical  system  more  or  less  in  the  style  of  first 
order  predicate  calculus  would  be  the  right  form  for  a 
declarative  language. 

First  order  logic  has  several  attractive  features  for 
a declarative  language.  First  it  is  well  understood. 

Next,  many  people  know  it.  It  is  clear  that  people  can 
use  it.  Finally  its  mathematical  structure  has  been  well 
studied. 

McCarthy  envisaged  a system  in  which  first  order 
predicate  calculus  statements  would  be  read  in,  and 
some  sort  of  deduction  scheme  (possibly  modus  ponens) 
would  be  used  to  deduce  consequences  until  the  answer 
came  out. 

Deduction  is  the  central  problem  in  using  predicate 
calculus  as  a programming  language.  How  could  logical  infer- 
ence be  set  up  on  a computer?  In  1964  several  researchers 
attempted  to  build  systems  which  used  predicate  calculus  as  an 
internal  form.  In  Raphael's  [29]  SIR  program,  he  allowed  six 
predicate  relations  and  wrote  separate  procedures  for  deduction 


from  each  pair.  Black  [ 3 ] wrote  a question  answering  system 
using  several  inference  rules,  each  of  which  was  a restricted 
form  of  modus  ponens  using  a weak  form  of  unification  rule. 
Experience  with  these  systems  showed  that  they  were  hard  to 
use  and  harder  to  extend.  For  example  to  add  a new  predicate 
to  Raphael's  program  one  had  to  be  very  familiar  with  the 
internals,  and  had  to  write  a procedure  specifying  just  how 
this  predicate  was  related  to  all  of  the  others.  Cordell  Green 
developed  the  QAl  question  answering  system  [14]  as  another 
limited  logic  system.  However,  it  could  not  do  such  simple 
problems  as:  given  "Every  person  has  two  hands"  and 

"John  is  a person",  answer  the  question  "How  many  hands 
does  John  have?" 

1.3  Resolution 

An  alternative  way  to  provide  deduction  with  a computer 
system  was  clearly  required.  Researchers  turned 
from  ^ hoc  systems  to  uniform  procedures  suggested  by 
mathematical  logic.  The  search  for  such  procedures  dates  back 
to  Leibniz  (1646-1716) . The  first  effective  procedure  was 
found  by  Herbrand  in  1930.  It  was,  in  fact,  implemented 
on  a computer  by  Gilmore  [12].  This  early  work  showed  that 
more  efficient  techniques  were  necessary.  Davis  and  Putnam  [ 8 ] 
found  several  ways  to  improve  Herbrand' s procedure  in  1960. 
Darlington  [ 7]  implemented  their  system  in  1962.  A major 


breakthrough  in  theorem  proving  was  the  development  of  the 
resolution  technique  by  Robinson  in  1965  [ 30j . Resolution 
has  two  vital  properties.  First  it  is  very  easily  implemented 
on  a computer.  Second,  it  is  simple  to  work  with  mathe- 
matically. 


1.4  Languages  Based  on  Formal  Logic 

Resolution  quickly  captured  the  imagination  of  AI 
researchers.  Cordell  Green  and  Bertram  Raphael  developed  the 
QA2  [15]  system  (1968)  using  resolution  and  first  order  logic. 
Coles  [ 6 ] wrote  an  English-to-logic  translator  which  would 
change  subsets  of  English  to  the  precise  form  of 
QA2  input.  Early  results  using  this  system  were  very  promising. 
Several  very  simple  problems  were  solved,  but  difficulties 
began  to  appear.  The  speed  of  operation  was  very  low.  Small 
changes  in  formulation  could  make  it  impossible  to  solve  problems. 
Researchers  began  to  feel  that  some  imperative  code  was 
necessary.  Green  [15]  argued  that  one  could  conceal  impera- 
tives in  the  declarative  formulation.  He  began  to  talk  of 
"programming  in  the  predicate  calculus  for  efficiency" , and 
suggested  combining  imperative  and  declarative  code. 

He  associated  a LISP  program  with  selected  predicates  and 
functions.  The  idea,  which  we  will  also  use,  was  to  execute 
the  LISP  program  within  the  resolvent.  For  example 
(TIMES  2 2)  could  evaluate  to  4.  Using  executable  predicates. 
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Green  developed  QA3 . This  sytem  could  solve  the  'Tower  of 
Hanoi'  problem,  using  an  executable  predicate  to  check  legal 
moves.  Executable  predicates  were  effective,  but  executable 
functions  were  not,  for  the  following  reason:  After  evaluating 
the  executable  function,  (TIMES  2 2)  to  4,  it  could  then  be 
necessary  to  unify  (TIMES  2 X)  with  4.  Since  these  cannot  be 
made  identical,  functional  evaluation  seemed  too  difficult. 

One  possible  way  of  unifying  (TIMES  2 X)  with  4 consists  of 
adding  all  the  equality  substitution  rules  and  the  axiom 
Y = (TIMES  Z (QUOTIENT  Y Z) ) ; then  it  would  be  possible 
to  apply  substitution  rules  enough  times  to  get 


Z = (TIMES  2 X)  V ...  P(X)  ...  V ...  Q(Z) 
Resolution  with  the  axiom  would  give 


P (QUOTIENT  Y 2))  V Q(Y)  ... 


Unification  of  Y with  4 and  finally  evaluation  of  (QUOTIENT  4 2) 
would  then  give  2.  Unfortunately  such  an  approach  leads  to  an 
enormous  number  of  resolvents.  Since  resolution  is  complete, 
partial  evaluation  is  useful  only  when  it  reduces  the  number 
of  clauses. 

Other  researchers  questioned  the  division;  "How  much 
imperative  vs.  how  much  declarative?"  Hewitt  [21]  developed 
PLANNER,  a language  which  allowed  intermixing  fragments 
of  LISP  code  and  predicates  within  a modified 
resolution  theorem  prover.  Here  one  could  provide 
strategy  functions  which  the  built-in  prover  would  call  to 
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select  clauses.  Rulifson  et  al.  developed  QA4  [34],  a language 
based  on  type  theory  (in  order  to  get  an  w-order  logic)  which 
allowed  clauses  to  contain  progrcuns.  These  programs,  written 
in  a LISP-like  notation,  would  act  as  a strategy.  The  differ- 
ence between  QA4  and  PLANNER  was  that  PLANNER  had  a built-in 
strategy  which  called  user-supplied  subroutines,  while  QA4  had 
the  user  progrcun  as  the  entire  strategy.  Several  very  impres- 
sive programs  were  written  in  PLANNER  [44].  Unfortunately  more 
and  more  code  took  on  an  imperative  flavor.  Sussman  [41]  argued 
that  the  built-in  strategy  of  PLANNER  was,  in  fact,  the  wrong 
one.  In  cooperation  with  McDermott  he  developed  CONNIVE;r, 
a language  in  which  users  had  complete  control  over  the  strategy 
being  used.  The  whole  discussion  of  strategies,  often  called 
procedural  embedding,  is  still  not  ended.  One  alternative  often 
suggested  is  that  more  powerful  control  structures  should  be 
added  to  the  language.  A series  of  languages,  QLISP  [33], 

SCHEME  [42],  etc.,  were  developed  to  add  control  flow  state- 
ments to  a logical  formalism.  We  will  describe  some  of  the 
details  of  these  mechanisms  in  Section  3.4. 

It  is  our  feeling  that  much  of  this  work  has  been  predi- 
cated on  the  beliefs  that  general  purpose  uniform  procedures  had 
to  be  very  slow,  that  resolution  was  developed  to  its  utmost,  and 
that,  by  their  very  nature,  complete  domain-independent  strategies 
could  not  be  made  efficient.  In  our  opinion  such  conclusions  are 
premature.  In  the  next  chapter  we  will  describe  a generalization  of 
resolution  which  will  be  more  efficient  than  resolution  alone.  We 
will  describe  the  Dilemma  language,  which  is  at  about  the  declara- 
tive level  of  QA3,  but  is  significantly  more  efficient. 
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CHAPTER  2 


THE  THEOREM  PROVING  SYSTEM 


Theorems  1,  2,  4,  5 and  6 in  this  chapter  have  been 
proved  elsehwere  (Harrison  and  Rubin  [18]);  the  proofs  are 
repeated  here  for  convenience  and  completeness. 


Resolution  Proofs 


At  this  point,  we  want  to  consider  a difficult  resolution 
problem.  This  problem,  which  in  this  formulation  is  near  the 
limit  which  can  be  proved  by  current  programs,  consists  in  show- 
ing that  x*y  = (-x) • (-y)  in  a ring.  We  will  use  a very  simple 
formulation . 

There  is  one  binary  predicate  equality  written  as  =, 
two  binary  functions  +,  and  •,  and  a unary  function  - (minus). 

We  will  write  the  clauses  as  implications  for  reasons  which 
will  become  clear  later.  The  input  to  the  theorem  prover 


Clause 


Function 


x + z=  y + z->-x  = y 
X*  (y  + z)  = x*y  + X* z 
x*y  + z>y  = (x  + z) *y 
0 = X + (-x) 


0 = -X  + X 


unique  sums 


distributive  law 


additive  inverse 


X = 0 


7.  0 = x-0 


a property  of  zero 


x = zAz=y-*-y=z 


y = X X = y 


transitivity  of  equality 

symmetric  property  of  equal- 
ity 


r 


t 


10. 

X = 

X 

11. 

w = 

y 

A 

X*W 

= z 

x*y  = 

z 

12. 

w = 

X 

A 

w*y 

= Z 

-► 

x-y  = 

z 

13. 

w = 

X 

A 

w + 

y = 

z 

-*■  x+y 

= z 

14. 

w = 

y 

A 

X + 

w = 

z 

-►  x+y 

= z 

15. 

a 'b 

(- 

-a)  • 

(-b) 

reflexive  property 


substitution  properties 
of  equality 


negated  theorem 


Assuming  a resolution  system  which  started  with  the 
negated  theorem  we  could  get  any  of  a large  number  of  essen- 
tially equivalent  minimal  refutations,  each  containing  13 
resolutions.  All  of  these  refutations  would  involve  3 instances 
of  clause  8,  and  1 instance  of  each  of  clauses  1,2, 3, 4, 5, 6, 7, 9, 
11,12,15.  Such  refutations  would  differ  only  in  the  order  the 
refutations  are  done.  For  example  the  left  distributive  law 
could  be  used  before  or  after  the  right. 


2 . 2 Refutation  Graphs  j 

We  would  like  to  avoid  regarding  these  as  different  proofs. 

To  that  end,  we  introduce  the  following  definition. 

We  define  a refutation  graph  G of  a set  S of  unsatisfi- 
able  clauses  as  follows.  Let  R be  a refutation  of  S.  Consider 
an  undirected  graph  G whose  nodes  are  the  clauses  of  S used 
in  R (if  a clause  of  S occurs  more  than  once  in  R,  there  should 
be  one  node  for  each  occurrence) . Each  branch  in  G is  associated 
with  two  literals  which  resolve  in  R,  and  connects  the  clauses 
containing  those  literals  (if  merging  or  factoring  occurs  in  R, 
there  is  a branch  in  G connecting  every  clause  containing  a 


i 


I. 


j 
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literal  which  merges  to  become  the  positive  literal  to  every 
clause  containing  a literal  which  merges  to  become  the  negative 
literal) . Figure  1 gives  an  example  of  a refutation  graph. 

It  is  clear  that  a set  S may  have  many  refutation  graphs,  and 
that  each  refutation  graph  can  be  derived  from  one  or  more 
resolution  refutations. 

Performing  a resolution  on  a refutation  graph  involves 
replacing  the  parent  clauses  by  the  resolvent,  and  applying  the 
most  general  unifier  to  the  other  clauses  of  the  graph.  The 
literals  of  a resolvent  will  be  considered  to  retain  the  associ- 
ation they  had  in  the  parent  clauses.  The  definition  of  refuta- 
tion graph  used  in  this  work  is  similar  to  but  not  identical 
with  the  resolution  graph  given  in  [45]. 

Figure  2 is  a refutation  graph  of  the  set  of  clauses  of  the 
input  problem.  It  is  easy  to  see  that  this  particular  graph 
forms  a tree,  i.e.  it  has  no  cycles.  Refutation  trees  are  derived 
from  resolution  refutations  which  do  not  use  merging  or  factoring 
(in  fact  from  refutations  which  treat  different  occurrences  of 
the  same  literal  independently. 


We  will  not  consider  the  refutation  graphs  which  are 
not  trees  until  Chapter  6. 


(a*b  ^ -a*-b) 


0.9 


(x+z  = y+z  -►  X = y) 


(x  = zAz  = y-*-x  = y)  @ 


(2)  (x-y+z*y  = (x  + z)  »y)  (x  = zAz  = y->-x  = 


^ (w  ^ x A wy  = z -►  x*y=z)  (x  = z a z = y 3 

0 (0  = X + -x)  (0-x  =0)  © 


© (0  = x-0) 


(w=y  A x*w=z  : 

I L 

(y  = X -►  X = y)  0 (x*  (y+z)  =x*y+x 

0 (0  = -b  + b) 


Figure  2.  The  Refutation  Graph  of  the  x-y  = -x*-y 


y)  © 

- y)  ® 


:-y=z)  © 

z)  0 

Example . 


If  an  uasatisf iable  set  of  clauses  has  a refutation 


I 

I 


tree  then  it  has  a particularly  easy  sort  of  refutation. 

Before  we  show  this,  we  need  to  introduce  the  follow- 
ing definitions. 

A simultaneous  unifier  (su)  of  a set  of  pairs 
<Xi,yi>,  i = l,...,n,  is  a substitution  A which  satisfies 
x^X  = y^X,  i = l,...,n.  If  there  exists  an  su  for  a set 
of  pairs,  the  set  is  called  simultaneously  unifiable  (which 
we  also  signify  by  su) . We  use  mgu  to  stand  for  most 
general  unifier.  If  the  pairs  <x^,y^>  are  su,  then  their 
most  general  simultaneous  unifier  (mgsu)  is  any  X such  that 
for  any  su  y there  exists  a a such  that  Xa  = y. 

Lemma  1 (Andrews,  1968)  . The  mgsu  of  a set  of  su 
pairs  is  unique  to  within  alphabetic  variations,  and 

is  computable  as  the  product  X^^X2  , where  X^^  is  the  mgu  of 
<Xj,y^>  and  X2  is  the  mgsu  of  <x^|^,yj^>Xj^  for  i = l,2,...,j-l, 
j+l,...,n,  and  j can  be  chosen  arbitrarily. 


Proof:  This  was  first  proved,  in  a slightly  more 

general  form,  in  t 2I.  The  proof  is  by  induction  on  n. 

If  n = 1 then  the  lemma  is  obvious. 

We  assume  that  there  is  a su  called  s of  <x.,y.>, 

1 ■'1 

1 ^ i £ n+1,  and  a mgsu  a of  1 ^ i ^ n.  Let 

^ = ^^n+l'^n+l"- 

Since  s is  an  su  of  the  pairs  up  to  n,  there  is  a B 
such  that  s = ab.  Now  Ls  = Lab  is  unified,  so  b unifies  La. 
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since  Lo  is  unifiable  there  is  a mgu  t of  La.  We  assert 
that  OT  is  the  mgsu  of  the  pairs  up  to  n+1. 

(1)  OT  is  an  su  for  l£i<^n,  <x^,Yj^>a  is  unified 

so  <Xj^,y^>OT  is  also.  Lot  is  also  unified  by 
the  definition  of  t. 

(2)  OT  is  an  mgsu.  Suppose  y is  an  su  of  the  pairs  up 
to  n+1;  then  y is  an  su  of  the  pairs  up  to  n.  So 

y = ou.  Since  Ly  = Lou,  u unifies  Lo , thus  u = tc. 
Now  y = ou  = o(tc)  = (ot)c. 

(3)  Uniqueness.  Assume  t,o  are  two  mgsu;  then  there 
exists  d , e such  that 

T = od  , o = xe 

if  P is  any  well  formed  formula  then  Px  and  Po  are 
alphabetic  variants,  so  the  unifier  is  unique  to 
within  alphabetic  variants. 

Now  we  may  prove 

Theorem  1 Given  a refutation  tree 

T for  a set  S of  clauses,  a merge-free  and  factor- 

free  resolution  refutation  of  S can  be  obtained  from  T by 
carrying  out  the  resolutions  corresponding  to  the  branches 
of  T in  any  order. 

Proof ; The  refutation  tree  t contains  a set  of  clauses 
each  of  which  is  in  S,  and  determines  the  existence  of  an 
mgsu  of  the  set  of  pairs  of  literals  associated  with  the 
branches  of  T.  Consider  a particular  order  of  the  branches 
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of  T,  . f We  can  perform  the  resolutions  on  the 

literals  associated  with  the  branches  in  this  order.  Since 
an  mgsu  of  the  pairs  of  literals  exists,  each  of  these  resolu- 
tions can  be  performed.  □ 

Now  we  will  characterize  what  class  of  sets  of  clauses 
have  a refutation  tree. 

Theorem  2 The  following  statements  about 

a set  S of  clauses  are  equivalent: 

(i)  S has  an  input  proof,  using  factoring  and  resolution. 

(ii)  S has  a unit  proof,  using  factoring  and  resolution. 

(iii)  S plus  the  factors  of  S have  a refutation  tree. 

Proof : (i)  and  (ii)  were  proved  equivalent  by  Chang  [ 4 ] , 

so  we  will  just  prove  the  equivalence  of  (i)  and  (iii)  . 

First,  suppose  S has  an  input  proof  I,  using  the  clauses 
Iq  , , I2 , . . . , in  that  order.  Consider  the  refutation 

graph  G of  S corresponding  to  I.  Process  G as  follows: 

1.  Set  i = n. 

2.  If  two  literals  of  are  associated  with  the  same 
literal  in  another  clauses,  replace  in  G by  the  factor  of 

which  unifies  these  literals,  making  the  corresponding 
modification  in  the  branches  of  G and  go  to  2. 

3.  If  a literal  L in  I^  is  associated  with  two  other 

literals  and  L2,  do  the  following:  Disconnect  the  branch 

associated  with  L and  Lj^,-  duplicate  the  graph  containing  I^ 
neglecting  all  branches  between  I^  and  1^  for  j < i;  reconnect 
this  graph  by  adding  a branch  associated  with  and  the  copy 
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of  L;  and  go  to  3. 

4.  Set  i = i-1;  if  i is  nonzero,  go  to  2. 

Each  of  the  modifications  in  steps  2 and  3 does  not 
destroy  the  fact  that  G is  a refutation  graph.  Furthermore, 
this  algorithm  changes  G to  a tree,  since  in  step  3 the 
graph  containing  is  a tree.  This  can  be  seen  by  noting 
that  just  before  step  4 each  copy  of  is  connected  to 
exactly  one  for  some  j < i. 

Now  suppose  S plus  its  factors  has  a refutation  tree  T. 
We  can  carry  out  the  resolutions  specified  by  the  tree  in 
any  order,  so  we  can  construct  an  input  proof  by  selecting 
an  arbitrary  clause  of  T first,  and  then  performing  the 
resolutions  of  T with  input  clauses  (or  factors  of  input 
clauses)  in  such  a way  that  the  literal  resolved  on  is  a 
member  of  the  previous  resolvent.  O 

Corollary  1 If  S has  an  input  (unit)  refutation 
using  factoring  and  resolution,  then  S plus  its  factors 
has  an  input  (unit)  resolution  refutation  without  factoring. 


Corollary  2 If  S has  an  input  refutation  using  resolution 
without  factoring  then  S has  a refutation  tree. 

2 . 3 Horn  Clauses 

Theorem  2 tells  us  when  a refutation  tree  exists,  but 
in  a rather  useless  way.  We  first  have  to  know  if  a set  of 
clauses  has  a refutation  of  a certain  form,  so  we  have  to  give 
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a proof  before  we  know  if  there  is  a refutation  tree. 

We  will  now  give  syntactic  conditions  which  will  be  sufficient 
to  guarantee  the  existence  of  a refutation  tree. 

If  we  have  a clause  in  disjunctive  normal  form 

-h  ''  ''  ^3 

which  has  no  more  than  one  positive  literal,  we  may  write 
it  as  an  implication. 


Each  such  implication  is  a conjunction  of  zero  or  more  atoms, 
followed  by  an  implication  sign,  followed  by  either  zero  or 
one  atom.  A clause  in  this  form  is  called  a Horn  clause. 

A set  representing  a conjunction  of  Horn  clauses  is  called  a 
Horn  set.  Henschen  and  Wos  [19]  showed: 


If  S is  an  unsatisf iable  Horn  set,  then  S has  an  input 
refutation  without  factoring. 

Theorem  3 . If  S is  an  unsatisf iable  Horn  set,  S has  a 
refutation  tree. 

Proof : From  the  second  corollary  to  Theorem  2 . 
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Given  a set  of  clauses  in  Horn  form,  a possible 
algorithm  for  finding  refutation  trees  consists  of: 

(1)  Form  a pool  of  subtrees  initially  containing  only 
negative  clauses 

(2)  Select  some  subtree  in  the  pool,  call  it  T; 

(3)  Pemove  T from  the  pool. 

(4)  Pick  some  literal  in  T which  has  no  associated  branch. 

(5)  Compute  all  possible  subtrees  which  link  the  selected, 
literal  of  T to  positive  literals  of  input  clauses. 

(6)  If  any  of  these  trees  has  no  literal  without  an  associated 
branch,  otherwise  add  each  of  these  trees  to  the  pool 

and  go  to  step  (2). 

It  is  easy  to  see  that  this  algorithm  is  exponential 
in  the  number  of  branches  of  the  final  tree.  In  the  next 
section  we  will  show  how  to  cut  down  the  number  of  branches 
and  thus  reduce  the  complexity  of  this  algorithm. 
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Here,  we  have  selected  several  subtrees.  If  we  regard 


the  subtrees  as  units  then  the  resultant  tree  has  fewer 

branches.  We  may  define  a generalization  of  resolution  based 

on  this  observation.  In  what  follows,  we  will  always  assume 

that  the  variables  in  two  clauses  are  distinct. 

Consider  two  clauses  G and  H of  S of  the  form 

A u {L(Xj^,  . . . } and  B u {M(y^,  . . . ,y^^)  } . Suppose  clause  C 

of  the  form  D u {L (w, , . . . ,w. ) } u {M(z, ,...,z  )}  can  be 

1 r j.  m 

deduced  from  U c S,  and  there  is  a most  general  simultaneous 
unifier  X of  the  pairs  <x^,w^>,  i = I,...,*,,  and  <y^,Zj>, 
j = l,...,m.  Then  the  clause 

(AX-L(x^,  . . .Xj^)X)U(BX-M(yj^, . . .yj^)X)U(DX-L(Xj^, . . . Xj^ ) X-M (y^^ , . . .y^^)  X) 

is  a binary  U-generalized  resolvent  of  G and  H.  We  will  refer 
to  clause  C as  the  unifying  clause,  and  to  the  L and  M literals 
of  C as  the  linking  literals. 

Furthermore,  if  clause  C'  of  the  form  {l(Wj^,  . . . ,w^^)  } can 

be  deduced  from  U c S,  and  there  is  an  mgsu  X of  the  pa.’rs 

<Xf,Wi>,  i = I,...,*.,  then  the  clause 

AX  - {l(Xj^,  . . . ,Xjj)  X} 

is  a unary  U-generalized  resolvent  of  G. 


We  will  usually  shorten  U-generalized  resolvent  to 
U-g-resolvent , and  drop  the  words  "unary"  or  "binary"  when 
no  distinction  is  being  made. 


We  envisage  U-g-resolution  being  used  in  the  following 
way.  Given  a set  S of  clauses,  select  a subset  U not 
including  the  theorem  to  be  proved.  Attempt  to  generate 
the  null  clause  by  repeatedly  adding  to  S the  U-g-resolvents 
of  clauses  in  S-U.  Thus  the  clauses  in  U are  used  essentially 
as  rules  of  Inference  rather  than  clauses  from  which  infer- 
ences can  be  made.  Note  that  the  proofs  generated  in  this  way 
should  have  fewer  steps  than  standard  resolution  proofs, 
and  these  steps  should  be  larger.  The  search  strategy  will 
involve  the  selection  of  (one  or)  two  clauses  from  S-U,  and 
the  selection  of  (one  or)  two  literals  belonging  to  them 
which  can  be  "linked"  by  a clause  inferred  from  U. 

The  question  then  arises  of  the  completeness  and 
soundness  of  generalized  resolution. 

Theorem  4 U-g-resolution  is  sound. 

Proof;  Trivial. 

Theorem  5 If  S is  a set  of  clauses 
with  a refutation  tree,  then  for  any  satis fiable  U c s 
S-U  has  a U-g-resolution  refutation. 

Proof ; Consider  a refutation  tree  T of  S.  We  will  show  that 
the  order  of  performing  resolutions  in  T,  which  can  be  chosen 
arbitrarily,  can  be  chosen  so  that  it  consists  of  a set  of 
subsequences,  each  of  which  corresponds  to  a U-g-resolution 
step. 
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Either  there  is  no  clause  in  U n t,  in  which  case  S-U 
has  a standard  resolution  refutation,  or  we  can  find  a sub- 
graph t of  T satisfying: 

(a)  t has  at  least  one  node  in  U 

(b)  if  a clause  K is  in  U n t,  all  clauses 
connected  in  T to  K are  also  in  t 

(c)  t is  connected 

(d)  all  nodes  of  t not  in  U are  connected  in  t 
to  only  one  other  node  of  t. 

Thus  t is  a free  tree  with  internal  nodes  in  U. 

Now  since  U is  satisfiable,  there  must  be  at  least  one 
node  of  t in  S-U.  If  there  is  exactly  one,  say  K,  then  it 
must  be  possible  to  carry  out  all  the  resolutsion  in  t - {K}, 
leaving  a single  literal  to  resolve  with  a literal  in  K;  in 
this  case  the  result  of  carrying  out  all  resolutions  in  t is 
a unary  U-g-resolvent  of  K.  Otherwise  there  are  at  least 
two  nodes  of  t in  S-U,  say  and  K2.  and  K2  can  be 

connected  by  a path  P in  t,  and  carrying  out  the  resolutions 
along  P is  equivalent  to  forming  a U-g-resolvent  of  and 
K2.  Note  that  in  carrying  out  the  U-g-resolution,  more 
literals  than  and  K2  may  be  removed  from  T.  However, 
this  merely  decomposes  T into  disconnected  subtrees,  one 
of  which  must  be  a refutation. 

Thus  in  each  case  we  can  reduce  T to  T' , a tree  with 
strictly  less  branches  than  T,  by  carrying  out  resolutions 
corresponding  to  the  formation  of  some  U-g-resolvent  R, 
with  T'  being  a refutation  tree  for  S u {r}. 
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Thus  given  any  refutation  tree  T of  S we  can  reduce 
it  by  sets  of  resolutions  each  corresponding  to  U-g-resolu- 
tion  steps  until  the  refutation  tree  contains  no  more  clauses 
of  U.  This  reduced  tree  can  be  refuted  by  standard  resolution 
steps  not  involving  clauses  of  U,  thus  completing  a U-g- 
resolution  refutation  of  S-U.  □ 

Corollary.  Since  in  the  proof  above  we  do  not  require  that 
identical  literals  be  merged,  the  theorem  remains  true  if 
we  do  only  partial  merging.  In  particular,  if  no  two  literals 
are  ever  identified. 

In  the  case  of  binary  U-g-resolution,  we  may  view  the 
generalization  as  a modification  of  unification. 

Before:  we  had  to  find  a substitution  a which  would  make 

two  formulas  identical. 

Now;  We  need  to  find  a substitution  a and  a subtree  T 

which  make  the  formulas  equivalent. 

One  way  in  which  we  may  establish  equivalence  is  to 
use  a second,  inner,  theorem  prover.  Such  an  inner  theorem 
prover  provides  three  advantages : 

(1)  It  needs  to  do  simpler  deductions 

(2)  The  pair  of  literals  selected  by  the  outer  theorem 
prover  acts  as  a guide  or  higher  level  plan 

(3)  The  outer  theorem  prover  reasons  in  larger  steps. 

At  best,  we  trade  one  proof  of  n steps  for  two  each  of 
about  n/2  steps.  Since  the  work  is  exponential  in  the  number 
of  steps,  if  we  happen  to  be  in  the  best  case  we  get  a 


significant  advantage.  However,  in  the  worst  case,  much 
computation  will  be  done  (repeatedly  generating  the  same 
useless  results)  by  the  inner  theorem  prover,  while  the 
proof  remains  n steps  long.  In  specific  cases,  it  may  be 
possible  to  eliminate  large  classes  of  potential  unifying 
clauses.  In  the  rest  of  this  chapter,  we  will  consider  the 
important  case  in  which  U contains  the  axioms  of  equality. 

2 . 5 Equality 

Many  schemes  have  been  proposed  to  build  a notion  of 
equality  into  a theorem  proving  system.  Robinson  and  Wos  [31] 
noted  that  using  equality  as  a binary  predicate  produced 
systems  which  were  very  slow.  Experimentally,  they  found 
that  introducing  a three  place  predicate  P(x,y,z)  ^ x*y  = z 
improved  the  performance  of  a resolution  theorem  prover  by 
about  3 orders  of  magnitude. 

Silbert  [39]  advanced  the  first  special  equality  system. 
He  had  four  rules  of  inference. 

Rule  1 From  A u P (x^^ , . . . ,x^)  and  B u "tP  (y^^ » . . . ,y^) 

where  P is  not  equality,  infer 
A u B u y^  u • • • Yjj  • 

[generalized  resolution] 
Rule  2 From  A<Jx  = y,  BUuj^v 

where  A,  B only  contain  equalities  or  inequalities 
y occurs  only  at  the  top  level  in  A,  a unifies  y 
and  V,  infer  (A  u B u u x)o 

[equalit  ' replacement] 
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Rule  3 From  A F (x^ , . . . ,Xj^)  = y where  A only  contains 

equalities  or  inequalities,  infer 
A u Xj^  u . . . u z^  ^ x^  u F (z  = y 

[equality  substitution] 

Rule  4 Delete  literals  of  the  form  x = x. 

The  problem  in  Silbert's  plan  however  where  to  apply 
rules  2 and  3.  Using  them  everywhere  allows  all  possible 
svibstitutions . His  technique  was  never  implemented. 

The  next  proposed  equality  technique  was  paramodulation 
Suggested  by  Robinson  and  Wos  in  1969  [31],  it  became  the 
most  often  used  equality  method.  In  summary,  it  consists 
of  the  following. 

Given  two  clauses 

C 

x=y  U B 

where 

(1)  t is  a term  in  C 

(2)  a is  the  mgu  of  t and  x , 
infer  the  clause 

Cq  = (C  u B)o 

Suppose  that  there  are  n occurrences  of  t,  a in  C^;  then 
we  conclude  the  n clauses  through  where 

is  the  result  of  replacing  the  ith  occurrence  of  to  in 
Cq  with  yo. 

Robinson  and  Wos  showed  that  “a  ring  is  commutative  if 
Vx,  x^  = e " could  be  proved  in  49  steps  of  paramodulation  or 
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136  resolutions.  The  proof  of  x*y  = (-x) • (-y)  in  the  formula- 
tion above  takes  11  paramodulation  steps  or  13  resolutions. 

Much  work  has  been  done  with  paramodulation,  perhaps  because 
it  is  easy  to  work  with  mathematically.  Implementations  have 
not  shown  clearly  that  it  is  efficient. 

E-resolution,  due  to  Anderson  [1],  uses  both  paramodu- 
lation and  resolution.  Two  literals  are  selected;  then  using 
the  unit  equalities,  all  possible  paramodulations  of  each 
literal  are  performed.  Then  all  pairwise  ways  of  unifying  the 
literals  are  computed.  An  incomplete  version  was  implemented  [27l- 

Dixon  [ 9 ] suggested  Z-resolution.  Basically,  it  consists 
of  the  following;  to  resolve  two  clauses  v A and  -L2  v B, 
first  compute  the  sets  VAR  (of  equality  variants  of 
and  L2-VAR  (the  set  of  equality  variants  of  L2) . Next  compute 
a set  U of  unifiers.  Each  a e u will  unify  a member  of 
Lj^-VAR  with  sane  manber  of  L2-VAR.  Finally,  the  Z-resolvents 
are  computed  by 

(A  u B)a  - {Lj^o,  -L2o}  for  Va  e u ; . 

The  equality  variants  of  a literal  Si  are  obtained  as  the  resolv- 
ents of  I and  clauses  in  a variant  set  V.  V contains  two  literal 
clauses,  where  no  variable  occurs  more  than  once  in  a single 
literal.  Resolutions  of  elements  of  V produce  tautologies. 
Z-resolution  is  a very  powerful  scheme  and  is  perhaps  the  best 
of  the  equality  methods.  A particularly  attractive 
alternative  to  Z-resolution  is  the  following  variation 
of  our  U-g-resolution  technique. 


-30- 


2.6  Equality-Generalized  Resolution 


Consider  two  clauses  G and  H of  the  form  A u {L(Xj^, . . . ,Xj^)  } 
and  B u . . . ,yj^)  } . Suppose  clauses  D^u  {w^  = z^}  can 

be  deduced  from  the  set  U of  clauses  such  that  either  1)  there  is  a 
mgsu  X of  the  pairs  <x^,w^>  and  <y^,z^>.  Or,  2)  if  in  addition 
L is  the  equality  predicate,  there  is  an  msgu  X of  the  pairs 
<Xi,Wi>,  <z-^,Y2>,  <X2,W2>»  clause 


In  practice  we  will  always  be  concerned  with  the  (finite) 
subset  of  E containing  only  function  and  predicate  letters 
used  in  other  clauses  of  a set  S-E. 

Theorem  6 If  S is  a set  of  clauses, 
including  {x  = x},  with  a refutation  tree,  then  there 
exists  a linear  U-e-g-resolvent  refutation  of  S-U  for  any 
U satisfying 

(i)  E n (S  - U)  = 0 

(ii)  U-E  contains  only  positive  unit  equality  clauses 

but  not  {x=x}  . 

Proof ; The  proof  of  this  theorem  is  similar  to  that  of 
Theorem  5.  That  is,  any  refutation  tree  T with  at  least  one 

r'de  in  U has  a subgraph  t which  is  a free  tree  with  int.2rnal 

nodes  in  U. 

We  can  show  that  there  is  at  least  one  pair  of  (terminal) 
nodes  in  t n (s  - u)  which  have  a U-e-g^resolvent  which  can 
be  obtained  by  carrying  out  only  resolutions  specified  by  t. 

For  any  internal  node  of  t is  in  E,  so  is  of  one  of  the 
following  forms: 

{x  y,  y = x} 

{x  Y,  Y ^ z,  X = z} 

{z  ^ f ( . . . ,x,  . • . ) , X y,  z = f(...,y, — )} 

{p( . . . ,x, . . . ) , X / Yi  p ( . • . ,y, . • . ) } 

In  each  case  the  first  literal  has  the  same  form  as  the  last 
literal  except  for  a substitution  or,  in  the  case  of  the 
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symmetry  axiom,  reversal  of  the  arguments.  This  means  that 
starting  with  any  negative  literal  in  t,  we  can  find  a 
sequence  of  resolutions  in  which  all  the  resolved  literals 
are  identical  except  for  substitutions  (or  argument  reversals, 
if  an  equality  literal) . 

Now  we  can  choose  this  initial  negative  literal 
L(Xj^,  • . . ,x^)  to  be  in  S - U.  There  must  be  at  least  one  such 

literal,  since  not  all  positive  literals  in  t ^ U can  be 
linked  in  t to  negative  literals  in  t n u (this  would  give 
a path  which  would  not  end  in  a terminal  node,  contradicting 
the  condition  that  t is  a tree) . The  substitution  path  start- 
ing with  L(Xj^,  . . . ,Xjj^)  , where  L is  not  equality,  must  terminate 
in  another  clause  in  S - U containing  a linking  literal  of 
the  form  L(y^,  . . . ,y^^)  . Furthermore,  the  internal  nodes  on 
this  path  specify  substitutions  or  reversals  which  indicate 
how  L(Xj^,  . . . ,Xj^)  can  be  transformed  into  L (y^^ , . . . ,y^j^)  . These 
internal  nodes,  together  with  some  applications  of  the  transiti- 
vity axiom  if  necessary,  permit  us  to  deduce  from  E clauses 
of  the  form 

D.  u {x.  = y.  } 

1 1 ■'i 

where  the  are  sets  of  equality  literals.  Thus  the  applica- 
tion of  the  resolutions  along  such  a path  corresponds  to  an 
E-e-g-resolution  step. 

If,  on  the  other  hand,  L is  equality,  the  substitution/ 
reversal  sequence  of  internal  nodes  starting  with  x^  = X2  may 
end  either  in  a node  {y^^  “ ^2^  in  S - U,  or  in  a positive 
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equality  unit  {y^  ~ ^2^  in  U.  In  both  cases  the  set  of 
internal  nodes  must  enable  us  to  define  from  U clauses  of 
the  form 

Di  U = Zj^} 

with  either  <X2,W2>,  <yj^,Zj^>,  <Y2'^2^  simultaneously 

unifiable,  or  <Xj^,w^>,  <Zj^,y2>,  <X2/W2>,  simultaneously 

unifiable.  In  the  first  case  this  sequence  of  resolutions  is 
equivalent  to  a U-e-g-resolvent  with  linking  literals  x^^  = X2 
and  y^^  = In  the  second  case  we  can  replace  y^^  = y2  in  t 

with 

tVl  ^2'  ^2  ^ ^2'  ^1  " ^2^ 

(Yl  = Y2> 

{Y2  = Y2> 

f' 

the  last  literal  being  an  instance  of  x = x,  which  is  in  S-U. 
Thus  the  second  case  can  be  reduced  to  the  first,  so  also 
corresponds  to  an  U-e-g-resolution  step.  Thus  given  any 
refutation  tree  T of  S,  we  can  reduce  that  tree  by  applying 
sets  of  resolutions  corresponding  to  U-e-g-resolution  steps 
until  the  tree  contains  no  more  clauses  of  U.  This  reduced 
tree  can  be  refuted  by  standard  resolution  steps  not  involving 
clauses  of  U,  thus  giving  an  U-e-g-resolution  refutation.  O 

Corollary.  As  in  Theorem  5,  Theorem  6 remains  true  whether 
merging  of  literals  is  done  or  not. 
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In  effect,  Theorem  6 says  that  if  in  U-g-resolution  U 
is  constrained  to  be  E,  then  we  need  only  consider  unifying 
clauses  which  have  linking  literals  with  the  same  predicate 


1 


i 

i 
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letter,  and  further,  such  unifying  clauses  have  as  their 
essential  components  other  clauses  which  establish  the  equality 
of  the  arguments  of  the  linking  literals. 

Theorem  6 thus  gives  us  a generalization  of  the  standard 
unification  procedure.  The  standard  procedure  says  that 
literals  can  be  unified  only  if  there  are  substitutions  for 
variables  which  make  the  literals  identical;  the  generalized 
procedure  is  to  permit  substitutions  which  enable  the 
arguments  of  the  literals  to  be  proven  equal.  Theorem  6 
shows  that  in  the  case  of  sets  of  clauses  with  a tree  refuta- 
tion the  use  of  the  equality  axioms  can  be  restricted  to  the 
problem  of  proving  the  arguments  equal,  and  need  not  appear 
as  clauses  to  be  resolved  upon. 

Theorem  6 cannot  be  generalized  to  arbitrary  sets  of 
clauses;  the  E-unsatisf iable  set  of  clauses: 

{P(a) , P(b) } 

{?(a),  P(b)} 

a = b 

cannot  be  proved  unsatisf iable  by  the  E-e-g-resolution  procedure 
since  the  necessary  factoring  cannot  be  done.  We  conjecture, 
however,  that  if  factoring  and  merging  is  generalized  to  use 
equivalence  in  an  analogous  fashion,  then  many  of  the  completeness 
results  of  standard  resolution  procedures  can  be  carried  over. 
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Returning  to  the  example,  no  proof  of  x-y  = -x--y  in  the 
formulation  given  in  Section  2.1,  has  been  reported  in  the  liter- 
ature, though  Wos  et  al . [311  proved  it  in  a hybrid  formulation 
(using  a three-argument  product  predicate  and  also  the  equality 
predicate).  Our  formulation,  being  restricted  to  Horn  clauses, 
must  have  an  input  proof  starting  with  the  negated  theorem.  The 
following  is  a standard  input  resolution  proof  of  minimum  depth 


(13  resolvents) : Numbers  to  the 

right  correspond 

to  Section  2.1. 

(Rl) 

a.b  + X ^ -a.-b  + x 

from  (15) 

and 

(7) 

(R2) 

a*b  + X ^ y,  y -a*  -b  + 

X (Rl) 

and 

(8) 

(R3) 

(a+b) -b  ^ -a*  -b  + x*b 

(R2) 

and 

(6) 

(R4) 

(a+b)  *b  y,  y -a*  -b  + 

x-b  (R3) 

and 

(8) 

(R5) 

w ^ a + X,  wb  y,  y -a 

•~b+x-b(R4) 

and 

(11) 

(R6) 

0-b  y,  y^  -a*-b  + -a*b 

(R5) 

and 

(3) 

(R7) 

0 ^ -a*  -b  + -a*b 

(R6) 

and 

(2) 

(R8) 

0 ^ X,  X -a*  -b  + -a-b 

(R7) 

and 

(8) 

(R9) 

x*0  ^ -a*  -b  + -a*b 

(R8) 

and 

(1) 

(RIO) 

w = 0,  x’w  f -a*-b  + -a*b 

(R9) 

and 

(12) 

(Rll) 

0 w,  X'w  ^ -a--b  + -a*b 

(RIO) 

and 

(10) 

(R12) 

X* (-y+y)  ^ -a--b  + -a-b 

(Rll) 

and 

(4) 

(R13) 

□ 

(R12) 

and 

(5) 

The  refutation  tree  corresponding  to  this  proof  is  given  in 
Figure  2.  Note  that  axioms  (9),  (13),  and  (14)  are  not  used, 
but  that  (10)  would  have  been  necessary  in  several  other 
cases  had  other  axioms  (such  as  (1),  (2),  (5),  and  (6)) 

'been  specified  the  other  way  around. 


A paramodulation  proof  would  permit  the  elimination 
of  the  steps  involving  the  substitution  axioms  (11)  and  (12) . 
That  is,  (R6)  could  be  obtained  directly  from  (R4) , and  (Rll) 
could  be  obtained  directly  from  (R9) . This  gives  an 
11-step  proof. 

A proof  using  E-e-g-resolution  can  be  much  shorter, 
since  all  resolvents  involving  clauses  in  E are  omitted. 

That  is,  only  resolvents  (Rl) , (R3) , (R6) , (R7),  (R9) , (R12) 
and  (R13)  appear  explicitly,  giving  a 7-step  proof.  This 
proof  arises  in  a number  of  ways:  for  example,  an 

E-e-g-resolvent  clause  could  be  found  from  (Rl)  and  (6) , 
using  one  instances  of  (8) ; or  (Rl)  and  (2) , using  two 
instances  of  (8)  and  one  of  (11);  or  (Rl)  and  (1)  using  three 
instances  of  (8) ; or  (Rl)  and  (5)  using  three  instances  of  (8) 
and  one  of  (12) . In  practice  it  would  not  be  likely  that  the 
longer  unifying  clauses  would  be  found;  it  would  be  more 
likely  that  (Rl)  would  resolve  with  (5)  using  a simple  substi- 
tuion  for  the  right-hand  sides,  and  an  instance  of  (8) 

a*b  + -a'z'  f a.,  z f x'*(y’+z'),  a*b  + -a-z'  = x'*(y'+z') 
for  the  left-hand  sides. 

The  S-e-g-resolution  proof  is  even  shorter  than  this, 
consisting  of  only  2 steps,  (Rl)  and  (R12) . That  is,  (Rl) 

a*b  + X ^ -a*  -b  + X 
can  be  resolved  directly  with  (5) 

x'*(y'+z')  = x'*y'  + x'*z' 
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The  right-hand  sides  are  unifiable  immediately,  using  the 


substitutions  x'  •<-  -a,  y'  -b,  x •»-  -a*z'.  Generalized 
unification  of  the  left-hand  sides  requires  that  a substi- 
tution be  found  such  that  (a*b  + -a*z')X  can  be  proved 
equal  to  (-a • (-b+z ' ) ) X . This  can  be  done,  following  the 
refutation  tree  precisely,  as  follows; 


a*b 

+ -a-b  = 

(a+  -a) *b 

from 

(6) 

a*b 

+ -a-b  = 

0-b 

from 

(3) 

and 

(11) 

a*b 

+ -a*b  = 

0 

from 

(2) 

and 

(8) 

a*b 

+ -a*b  = 

-a*0 

from 

(1) 

and 

(8) 

a*b 

+ -a»b  = 

-a ' (-b+b) 

from 

(4)  , 

(10)  and  (12) 

With 

the  substitution  z' 

■«-  b,  this  gives  the 

null 

. clause 

as  the  S-e-g-resolvent  of  (Rl)  and  (5) . 

2.7  Coercion 

To  turn  Theorem  6 into  a useful  procedure,  we  need 
a strategy  for  finding  the  proofs  of  equality. 

Suppose  we  have  two  terms  t^^  and  t2  which  we  would 
like  to  prove  equal.  Also  suppose  U contains  a clause 

a = b -f-  D , where  D is  a conjunction. 

We  may  break  up  the  proof  of  equality  into  two  subproblems. 

First  to  show  that  t^^  = a and  second,  to  show  that  b=t2 . We 
must  decide  which  clauses  of  U to  use  on  a given  problem. 

i 

We  choose  to  use  the  following  criteria. 

Before  starting  to  prove  that  tj^  = a we  impose  the  restric- 
tion that  either 
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(1)  or  a is  a variable  or 

(2)  and  a are  the  same  constant  or 

(3)  tj^  and  a both  start  with  the  same  function  letter. 

We  then  use  the  same  criteria  on  t2  and  b. 

Finally  we  place  transitivity  in  both  S and  U. 

The  difference  between  coercion  and  U-e-g  resolution  may  be 

seen  in  the  following  example. 

S - U U 

P(a)  a = c 

-P(b)  b = c 

X = X E 


In  U-e-g  resolution  we  unify  P(a)  and  -P(b)  in  the  follow- 
ing tree. 


P(a) 


Unification  of  P(a)  and  -P(b)  produces  the  subproblem  of 
proving  b = a,  which  can  be  done  within  U.  Thus  U-e-g-resolution 
gives  a one-step  proof. 
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In  coercion  the  transitivity  axiom  is  in  S rather  than  in  U, 
so  a coercion  proof  takes  four  steps.  From  an  attempt  to  unify 
P(a)  and  -P(b),  again  we  get  the  subproblem  b=a.  Now  however 
we  cannot  apply  transitivity  inside  unification,  so  the  resolvent  is 

{b  a} 

In  the  second  step  we  resolve  b ^ a with  transitivity  to  get 

{h  / z,  z / a} 

Two  unary  resolutions  remove  these  literals.  As  this  example 
shows,  coercion  consists  in  stopping  the  inner  theorem  prover 
just  before  applying  transitivity.  Transitivity  is  then  applied 
by  the  outer  theorem  prover. 

Finally  unary  resolutions  complete  the  proof. 

The  coercion  algorithm  we  use  is  defined  as  follows; 

An  ordered  pair  <a,A>,  where  o is  a set  of  substitutions  and  A 
is  a set  of  literals,  is  called  a solution  of  the  coercion- 
unification  of  L (Xj^, . . . ,x^)  and  -L(y^, . . , ,y^)  if  each  of  the 
following  conditions  holds:  (1)  a subtree  t may  be  constructed 
insode  of  unification;  (2)  the  literals  -L (Xj^ , . . . ,x^) o and 
L (y^^, . . . ,y^)  a are  in  t and  have  no  associated  branch; 

(3)  A is  the  set  made  up  of  all  the  other  literals  of  t 
without  associated  branches.  The  depth  of  a solution  is  the 
number  of  times  that  transitivity  occurs  in  the  associated  subtree. 

The  following  algorithms  will  generate  all  solutions  of 
the  coercion  unification  of  L (x^^ , . . . ,x^)  and  L (y^^ , . . . ,y^)  of 
depth  d or  less. 

To  coercion-unify  L (x^^ , . . . ,x^)  and  L (y^^ , . . . ,y^)  to  depth  d. 
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(A)  Solve  the  subproblem 


X2=Y2»  •••#  ^n~^n  depth  d as  follows: 

(1)  Let  S = set  of  solutions  of  the  subproblems  x^  = 
to  depth  d as  shown  in  (B)  below 

(2)  If  L is  equality  add  to  S the  solutions  of  x^^=y2/  X2=y  , 
as  shown  in  (B)  below. 

(3)  Return  S. 

(B)  To  solve  a subproblem 

Xi=yi,  X2-Y2 x^=y^ 

(1)  let  = set  of  solutions  of  x^^=yj^  to  depth  d as'  found  by 

(C)  below 

(2)  let  = set  of  solutions  of  (Xj^=y^)a  as  found  by  (C) 

below  where  <a,A>  e ^ ~ 2,...,n. 

(3)  Return  S^. 

(C)  To  solve  a subproblem 
x^=y^  to  depth  d, 

(1)  let  S = {<1,  x^=y^^>}  where  I is  the  identity  substitution 

(2)  if  x^  and  y^^  are  not  both  functions,  let  a = most  general 
unifier  of  x^  and  y^  computed  in  the  standard  way; 

if  0 is  defined  add  <a,0>  to  S. 

(3)  If  d = 0,  go  to  (6)  . 

(4)  For  each  unit  equality  problem  a = 6 form  the  two  subproblems 

Xj^=U/  y£=6  with  depth  d-1;  x^=3,  yj^=a  with  depth  d-1. 


(5)  If  the  restrictions  to  Section  2.7  are  met,  add  all  solutions 
to  these  subproblems,  found  by  (B)  above  to  S. 
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(6)  If  and  are  functions  starting  with  the  same  symbol 
add  to  S all  solutions  of  coercion-unifying  and  y^  to 
depth  d. 

(7)  Return  S. 

For  the  unary  case , we  have : 

To  coerc ion-uni  fy  x y 
apply  algorithm  (C)  above. 

Finally,  we  prove  below  that  we  get  the  same  deductions 
from  either  coercion  of  U-e-g-resolution.  The  advantage  of 
coercion  is  that  the  outer  theorem  prover  gets  to  see  inter- 
mediate results  and  on  that  basis  possibly  suspend  the  compu- 
tation of  a unifier. 

I 

Theorem  7 If  S is  a set  of  clauses,  including 
{x  ^ y,  y z,  X = z} , with  a refutation  tree,  then  there 
exists  a linear  coercion  refutation  of  S-U  for  any  U satisfying 

(i)  E u (S  - U)  = {x?«y  V Yfiz  v x=z} 

(ii)  U-E  contains  only  positive  unit  equalities  but  not 

{x=x} . 

t 

Proof ! We  will  show  that  any  U-e-g  resolvent  is  produced 
by  a series  of  coercion  resolvents  which  do  not  involve  any  uses 
of  transitivity  inside  of  unification.  We  do  this  by  induction 
; on  n,  the  number  of  uses  of  transitivity  in  the  U-e-g  resolution. 

If  n = 0,  the  U-e-g  resolution  and  the  coercion  resolution 
. are  the  same . 

Assume  the  induction  hypothesis  is  true  for  U-e-g  resolu- 

I 

I tions  with  n or  less  transitivity  applications.  Consider  a U-e-g 
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resolution  with  n+1  transitivity  steps.  We  select  one  of 
these  n+1  transitivity  applications,  say: 

{a  ^ c,  c / b,  a = b} 

The  a = b must  be  linked  to  an  a ^ b.  If  this  a ^ b is  in  a 
clause  in  S-U  then  we  may  resolve  a b and  transitivity 

directly.  Otherwise  this  a ^ b is  in  U,  and  therefore  in  E, 
since  U-E  contains  only  positive  unit  equalities.  There  are 
two  cases:  either  it  is  on  a chain  of  the  type  described  in 

Theorem  6,  or  it  is  not.  In  the  first  case  it  can  be  removed 
by  a U-e-g-resolution , and  in  the  second  must  be  produced  by 
some  U-e-g  resolution  as  one  of  the  resultant  literals.  In 
both  cases  this  U-e-g-resolution  will  involve  no  more  than  U 
applications  of  transitivity,  and  so  can  be  done  by  coercion. 

Finally  the  two  literals  a ^ c,  and  c 5^  b may  each  be 
removed  by  a unary  coercion.  Such  a deduction  is  allowed 
since  the  subtrees  linked  to  these  literals  in  the  U-e-g  resolu 
tion  each  contains  no  more  than  n applications  of  transitivity 

We  have  shown  that  no  applications  of  transitivity  are 
required  inside  unification;  since  using  transitivity  inside  of 
unification  can  only  increase  the  number  of  solutions,  we  may 
apply  it  selectively  without  removing  completeness.  Therefore 
in  part  (C)  step  (5)  any  set  of  restrictions  may  be  used. 


2 . 8 Comparison  of  Coercion  and  Resolution 


The  results  reported  below  were  obtained  from  a 
straightforward  Horn  clause  resolution  program  which  was 
modified  to  implement  coercion.  A switch  could  be  set  in 
this  algorithm  so  that  it  would  revert  to  the  standard 
unification  algorithm  for  comparison  purposes. 

Horn  clause  resolution  was  chosen  for  its 
simplicity.  We  use  input  resolution,  with  the 
literals  in  a clause  maintained  in  the  original  order,  and 
resolution  permitted  only  on  the  first  literal.  We  prefer 
input  resolution,  since  at  any  point  in  an  input  resolution 
procedure,  there  are  a number  of  resolvents  which  can  be 
worked  on  (the  "pool")  and  the  order  in  which  they  are  chosen 
does  not  affect  the  possible  resolutions  which  can  be  done; 
this  would  appear  to  be  a significant  advantage  when  trying 
to  compare  procedures  which  are  highly  dependent  on  heuristics. 

Only  three  heuristics  were  actually  used.  Resolvents 
with  complexity  (in  effect  the  number  of  symbols  in  the 
expression)  greater  than  some  cut-off  point  were  discarded; 
resolvents  were  selected  in  order  of  increasing  complexity  and 
increasing  depth  if  complexity  was  equal;  coercion  was 
restricted  to  a maximum  depth  of  three.  Resolvents  which 
were  alphabetic  variants  of  previously  encountered  clauses 
were  also  discarded. 

I 
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Excunple  1 is  the  ring  theory  problem  discussed  in 
Section  2 above.  The  generalized  unification  procedure 
found  the  proof  discussed,  using  axioms  (1)  through  (8)  only. 
The  results  are  summarized  in  Table  I . The  standard 
resolution  procedure  ran  out  of  time  after  having  generated 
30%  more  resolvents  but  only  getting  half  of  the  proof. 

Excunple  2 is  a somewhat  simpler  ring  theory  problem. 
That  is,  from  the  axioms 

(1)  X = 0 + X 

(2)  X- (y+z)  = x*y  + x*z 

(3)  x + z = y + z->-x  = y 

together  with  appropriate  equality  axioms,  to  prove 

(4)  x-0  = 0 

In  standard  resolution,  this  proof  could  be  obtained  in  the 
following  11  steps: 


(RO) 

a-0 

0 

negated  theorem 

(Rl) 

a • 0 

+ z 0 + z 

(RO) 

and 

(3) 

(R2) 

0 + 

z f a*0  + z 

(Rl) 

and 

symmetry 

(R3) 

X 

Yf  0 + y ^ a* 0 

+ X 

(R2) 

and 

substitutivity 

(R4) 

0 + 

a’O 

+ x(y+z) 

(R3) 

and 

(2) 

(R5) 

a • 0 

+ X* (y+z)  ^ 0+(x*y+x*z) 

(R4) 

and 

symmetry 

(R6) 

V f 

X* (y+z) , a* 0 + 

V ^ 0+(x-y+x*z) 

(R5) 

and 

substitutivity 

(R7) 

X- (y+z)  ^ V,  a*0+v 

^ 0+(x*y+X'z) 

(R6) 

and 

symmetry 

(R8) 

w 

y+z,  x‘w  ^ V, 

a • 0 

+ V ^ 0 + (x-y 

+ x-z) 

(R7) 

and 

substitutivity 
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(R9)  x-w  f V,  a‘0+v  ^ 0+(x*0+x*w) 
(RIO)  a*0  + x-w  0 + (x-0  + x-w) 
(RID  □ 


(R8)  and  (1) 


(R9)  and 
(RIO)  and  (1) 

Our  standard  resolution  program  actually  ran  out  of  time 
after  generating  754  clauses,  getting  (R4)  but  not  (R5) . 
There  were  429  clauses  left  in  the  pool  at  this  point. 

Note  that  this  proof  is  made  longer  than  it  might  be  by 
the  use  of  the  particular  forms  of  the  axioms,  necessitating 
several  applications  of  the  symmetry  axiom. 

The  generalized  unification  proof  took  just  the 
following  two  steps; 

(RO)  a-0  fi  0 

(Rl)  a-0  + x?^0+x  (RO)  and  (3) 

(R2)  □ (Rl)  and  (1)  and  (4) 

This  proof  appeared  as  the  17^^  clause  generated,  at  which 
time  there  were  4 clauses  in  the  pool.  The  step  from  (Rl) 
to  (R2)  is  by  no  means  obvious,  and  proceeds  as  follows: 
First  (Rl)  is  resolved  against  (1) , with  the  unification 
subproblem 

a-0  + X = X 

which  is  unified  with  (2)  giving  the  subproblem 
a-0  + X- (0+z)  = x-0  + x-z 
which  generates  the  subproblem 

0 + z = z 

which  unifies  with  (1)  reverdied.  The  results  are  summarized 
in  Table  II. 
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Coercion 


Resolvent 


Standard  Resolution 


Resolvent 

Number 

Pool 

Size 

Resolvent 

Number 

Pool 

Size 

2 

0 

(Rl) 

2 

0 

13 

4 

(R2) 

40 

24 

21 

3 

(R3) 

156 

79 

65 

14 

(R4) 

452 

214 

128 

21 

(R7) 

>779 

* 

351 

136 

26 

(R8) 

370 

30 

(R9) 

597 

46 

□ 

* out  of  time 

80  resolvents 

130  resolvents 

accepted 

accepted 

236  seconds 

>512  seconds 

Table  I.  Comparison  of  Proofs  of  a*b  = -a  • -b 


Coercion 

Resolvent 

Standard 

Resolution 

Resolvent  Pool 

Number  Size 

Resolvent 

Number 

Pool 

Size 

1 0 

(Rl) 

4 

15 

(R2) 

35 

20 

(R3) 

57 

35 

not  needed 

(R4) 

338 

208 

* 

* 

(R5) 

>754 

429 

17 

□ 

* 

out  of 

time 

12.7  seconds 


>512 


CHAPTER  3 


THE  DILEMMA  PROGRAMMING  LANGUAGE 

While  it  would  be  possible  to  base  a computer  language 
solely  on  the  coercion  mechanism  such  a system  would  then  be 
deficient  in  several  aspects.  First,  since  it  would  not  have 
a procedural  component,  though  we  could  state  any  fact  or 
concept,  it  would  be  hard  to  tell  the  theorem  prover  exactly 
when  to  use  these  facts  or  concepts.  We  believe  that  such 
additional  information  is  often  best  given  in  imperative  form. 

A second  deficiency  occurs  when  there  are  many  extraneous 
ground  clauses.  If,  for  example,  we  wished  to  have  the  entire 
multiplication  table  of  the  hardware  described  by  a set  of  clauses, 
the  storage  and  retrieval  problems  would  be  terribly  complex. 

In  any  given  run  only  a few  of  these  would  be  relevant.  far 
simpler  technique  would  be  to  generate  ground  clauses  as  needed. 

The  third  deficiency  is  the  duplication  that  arises  when 
there  are  clauses  which  are  equivalent.  For  example  in  a geometry 
program  we  could  have  a clause  containing  the  line  AB  and  a second 
clause  containing  the  line  BA.  Ideally  we  would  like  to  represent 
clauses  in  a canonical  form  deleting  duplicates. 

The  final  deficiency  that  we  wish  to  consider  is  that 
duplicate  computations  are  often  necessary.  If  in  the  course  of 
proving  two  lines  equal  we  prove  that  a pair  of  triangles  is  con- 
gruent, we  would  like  to  record  that  fact.  Proofs  of 
congruence  should  only  be  done  once.  Furthermore,  once 
we  know  that  two  triangles  are  congruent,  there  are 


a number  of  immediate  consequences;  for  example,  corres- 
ponding angles  are  equal.  Often  it  is  computationally 
advantageous  to  draw  these  consequences  immediately. 

In  this  chapter  we  will  describe  the  pure  language 
and  a way  to  remove  some  of  these  deficiencies  by 
introducing  imperatives.  We  next  will  give  the  syntax 
and  semantics  of  Dilemma  using  coercion  and  imperatives. 
Chapters  4 and  5 discuss  a sample  progreim  which  proves 
geometry  theorems.  Finally,  Appendix  I contains  an 
interpreter  of  Dilemma  written  in  BALM. 
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3.1  Horn  Clauses  as  Procedures 


Logical  statements  of  the  form: 

IP,  V ~IP_  V ...  V “IP  V Q 
12  n 

Q 

“IP,  V “IP„  V ...  V “IP 
12  n 

are  said  to  be  in  Horn  form.  Each  such  statement  has  at  most 
one  positive  literal . Many  useful  structures  may  be  described 
by  a collection  of  Horn  statements.  The  following  result  due 
to  Horn  [22]  characterizes  such  structures.  We  first  define 
the  notion  of  "closed  under  direct  product" . Suppose  S is  a 
set  of  statements,  with  m^  and  m2  two  models  for  S.  If  mj^>'m2 
is  also  a model  of  S we  say  S is  closed  under  direct  product. 

Horn  showed  that  if  a set  of  clauses  was  closed  under  direct  pro- 
duct then  there  exists  an  equivalent  set  of  clauses  which  is 
in  Horn  form.  For  excimple  since  we  know  that  if  and  G2  are  two 
groups,  then  G^^  x G2  is  also  a group,  there  is  a set  of 
logical  statements  in  Horn  clause  form  which  will  describe 
groups . 

Statements  of  the  form  “Ip,  v “IP„  v . . . v “IP  v Q 

12  n 

may  be  viewed  as  implications  P^  a P2  a . . . a P^^  -*■  Q 
and  as  procedures  with  name  Q and  body  P^^  through  P^^. 

We  interpret  such  a procedure  to  mean;  P^  through  P^  are 
sufficient  conditions  to  establish  Q. 

Statements  of  the  form  Q may  also  be  viewed  as  implica- 
tions Q or  as  procedures  with  name  Q,  and  null  body.  We 
interpret  such  a procedure  to  mean  Q is  an  immediate  result. 
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Finally  statements  of  the  form  “I(P,  v ...  v P ) are 

1 n 

also  implications 

P,  A p A . , . A p -♦  contradiction 
1 z n 

We  interpret  this  as  initial  goals,  i.e.  report  success  if 
it  is  possible  to  achieve  all  of  P^^  through  P^. 

When  there  are  arguments  involved  we  coarc e them 
together.  For  example: 

Given  the  procedures : 

(1)  P(b,a)  -*■  contradiction 

(2)  Q(x,a)  -<■  P(a,x) 

and  the  unit  equality  a = b we  execute  the  body  of  (1)  by 
first  proving  that  b = a inside  of  unification  and  then 
binding  x to  a.  The  body  of  (2)  becomes  Q(a,a). 

The  term  coercion  is  based  on  the  coercions  of 
ALGOL  68. 

We  note  that  bindings  in  a call  affect  the  caller 
as  well  as  the  called  program.  We  could,  for  example, 
have  the  assignment  statement: 

SETQ(x,x) 

which  could  be  called  by  either  SETQ(x,z)  or  SETQ(z,x). 
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The  basic  execution  semantics 


of  our  language  con- 


r 


sists  of: 

(1)  let  N = set  of  negative  clauses 

(2)  pick  some  c in  N;  remove  it  from  N 

(3)  pick  some  literal  J,  in  c 

(4)  using  coercion,  compute  the  set  S of  generalized 
resolvents  of  subroutines  with  C,  resolving  on 
Si  and  the  name  of  the  subroutine 

(5)  if  □ e S,  stop;  otherwise,  go  to  (2) . 

As  we  have  said,  this  form  of  language  would  be  very 
inefficient.  The  next  two  sections  will  describe  additional 
features  which  improve  the  performance. 

Since  the  basis  of  the  language  will  be  a two  level 
theorem  prover  applied  to  Horn  clauses,  we  have  chosen  to 
call  the  language  Dilemma.  Before  we  give  a formal  state- 
ment of  Dilemma,  we  will  give  an  example. 


3.2  An  Example  (The  Jekyll  and  Hyde  Problem) 

Suppose  we  wish  to  teli  the  machine  of  a kindly  old 
doctor  named  Jekyll.  Jekyli  is  the  name  of  an  individual 
or  a constant  in  our  logical  universe.  To  tell  DILEMMA  about 
him  we  write; 

CONSTANT  JEKYLL  END; 

FACTl  ASSERT  DOCTOR (JEKYLL) : 

FACT2  ASSERT  KINDLY (JEKYLL) ; 

F3  ASSERT  OLD (JEKYLL) ; 

F4  ASSERT  HUMAN (JEKYLL) ; 

(we  have  underlined  keywords  in  these  examples;  the  underlin- 
ing is  not  part  of  the  actual  computer  input.)  Each  of  the 
statements  generates  a positive  unit  clause.  Now  we  tell 
DILEMMA  the  nature  of  humans. 

F5  THEOREM  FALLIBLE (X)  FROM  HUMAN (X); 

F5  is  an  implication;  for  all  x,  if  x is  human  then  x is 
fallible.  To  ask  the  question  "is  anyone  fallible?”  we  may 
write; 

PROVE  (FALLIBLE (X) ) ; 

PROVE  statements  generate  negative  clauses.  In  this  case 
NOT  fallible (X).  This  clause  unifies  with  F5  to  give  the 
resolvent  — NOT  HUMAN (X).  In  turn  this  resolves  with  F4 
to  give  the  resolvent  □.  Thus  we  have  proved  a fallible 
individual  exists,  namely  Jekyll. 

A slightly  more  complex  question  is  "is  there  a fallible 
doctor?" . 
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PROVE (DOCTOP  (X)  ^ FALLIBLE (X) ) ; 

The  literal  NOT  DOCTOR (X)  unifies  with  FACTl  to  give  the 

resolvent  — NOT  FALLIBLE  (JEKYLL) . This  generates 

NOT  HUMAN (JEKYLL)  via  F5.  As  above  a resolution  with  F4 

produces  the  null  clause.  If  there  were  a few  other  doctors 

in  our  universe  of  discourse,  say  Strangelove  and  Schweitzer 

we  could  add  the  inputs: 

CONSTANT  STRANGELOVE,  SCHWEITZER  END; 

F6  ASSERT  DOCTOR ( STRANGELOVE ) ; 

F7  ASSERT  DOCTOR (SCHWE IT ZER ) ; 

Asking  the  same  question: 

PROVE (DOCTOR (X) aFALLIBLE (X) ) ; 

gives  the  follov.’ing  resolvents: 

NOT  FALLIBLE (STRANGELOVE)  from  F6 ; 

NOT  FALLIBLE (SCHWEITZER)  from  F7; 

NOT  FALLIBLE (JEKYLL)  from  FACTl. 

Each  of  these  is  executed  in  parallel  with  F5  to  give: 

NOT  HUMAN (STRANGELOVE) 

NOT  HUMAN (SCHWEITZER) 

NOT  HUMAN (JEKYLL) 

The  last  of  these  yields  the  nul7  clause  via  F4.  The  X in 
the  PROVE  statement  is  assigned  the  value  JEKYLL  since  that 
is  the  only  solution  which  produces  the  null  clause.  The 
other  assignments  of  X are  "undone"  as  those  parallel  paths 
of  execution  terminate  unsuccessfully. 

Suppose  we  add  still  another  individual  to  this  system, 
the  diabolical  Mr.  Hyde. 
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CONSTANT  HYDE  END; 


F8  ASSERT  DIABOLIC (HYDE)  ; 

Up  to  this  point  DILEMMA  has  been  similar  to  older  AI 
languages.  Now  we  come  to  a basic  difference.  We  will 
say  that  Jekyll  and  Hyde  are  the  same.  One  way  to  do  this 
would  be  to  write: 

SI  ASSERT  SAME ( H YDE, JEKYLL); 


course 

we  must 

define  the 

effects  of  SAME. 

S2 

THEOREM 

DOCTOR (X) 

FROM 

DOCTOR (Y) 

A 

SAME (X,Y) 

S3 

THEOREM 

KINDLY (X) 

FROM 

KINDLY (Y) 

A 

SAME(X,Y) 

S4 

THEOREM 

OLD(X) 

FROM 

OLD(Y) 

A 

SAME(X,Y) 

S5 

THEOREM 

HUMAN (X) 

FROM 

HUMAN (Y) 

A 

SAME(X,Y) 

S6 

THEOREM 

FALLIBLE (X) 

FROM 

FALLIBLE (Y) 

A 

SAME(X,Y) 

S7 

THEOREM 

SAME(X,Y) 

FROM 

SAME(Y,X)  ; 

S8 

THEOREM 

SAME (X,Y) 

FROM 

SAME(X,Z) 

A 

SAME (Z,Y) ; 

S9 

ASSERT 

SAME(X,X) ; 

SA 

THEOREM 

DIABOLIC (X) 

FROM 

DIABOLIC (Y) 

A 

SAME (X,Y) ; 

If  we  ask  "is  there  a diabolic  doctor?" 

PROVE  (DOCTOR (X) A DIABOLIC ( X) ) ; 
the  resolvents  are: 

1.  NOT (DOCTOR (Y)  A SAME(X,Y)  a DIABOLIC (X)) 

2.  NOT (DIABOLIC (JEKYLL) 

3 . NOT ( DIABOLIC ( STRANGELOVE ) ) 

4 . NOT (DIABOLIC (SCHWEITZER) ) 

In  stage  two  the  resolvents  are : 

1,  5.  NOT (DOCTOR ( Z) , SAME(Y,Z),  SAME(X,Y),  DIABOLIC(X)) 

6.  NOT (SAME (X,  JEKYLL),  DIABOLIC (X)) 

7.  NOT (SAME (X, STRANGELOVE) , DIABOLIC(X)) 


8.  NOT (SAME (X, SCHWEITZ ER) , DIABOLIC(X)) 

2,  9.  NOT (DIABOLIC (Y),  SAME (JEKYLL, Y) ) 

3.10.  NOT (DIABOLIC (Y) , SAME (STRANGELOVE , Y) ) 

4.11.  NOT (DIABOLIC (Y),  SAME (SCHWEITZER, Y) ) 

In  stage  three  the  resolvents  include: 

NOT (DIABOLIC (HYDE) ) 

NOT (SAME (JEKYLL, X) , DIABOLIC (X)) 

NOT (SAME (X, Z) , SAME ( Z , JEKYLL) , DIABOLIC (X)) 
NOT  (DIABOLIC  ( JEK  iTLL) 


Finally  in  stage  4 we  produce  the  null  clause. 

Another  way  available  in  DILEMMA  to  describe  the 
intimate  relationship  between  Je)cyll  and  Hyde  is  the  coercion 


HI  COER  HYDE, JEKYLL; 


HI  tells  DILEMMA  that  the  constant  HYDE  may  be  "COERced" 
into  the  constant  JEKYLL  when  necessary  for  unificat. on. 

In  standard  unification  we  seek,  to  find  a substitution 
which  will  make  two  literals  identical.  In  DILEMMA  we 
require  only  that  the  literals  become  equivalent.  Coercions 
are  used  to  specify  facts  to  an  inner  theorem  prover.  This 
prover,  invoked  during  unification,  attempts  to  prove  the 
equivalence . 

So,  using  Hi  rather  than  the  S's  we  have: 

PROVE (DOCTOR (X)  A DIABOLIC (X) ) ; 

1 . NOT (DIABOLIC (JEKYLL)  ) 

2.  NOT (DIABOLIC (SCHWEITZER) ) 

3 . NOT ( DIABOLIC ( STRANGELOVE ) ) 


In  stage  2 we  get  the  null  clause  by  resolving  1 with  F8 


The  Dilemma  system  has  been  developed  as  an  extension 
of  the  BALM4  programming  language  [16] . All  of  the  BALM4 
features  are  available  to  the  Dilemma  programmer.  Several 
additional  data  types  and  structures  are  provided.  We  will 
assume  that  readers  are  familiar  with  the  BALM4  language 
and  will  freely  make  use  of  the  concepts  and  terminology 
defined  in  [17]. 

We  will  use  the  following  notation: 


<el> ,<e2> 
< item> 

<lit> 

* 


[x] 

<pos  lit> 


<name> 

<proc> 


will  be  two  expressions 
will  be  any  valid  BALM4  item 
will  be  a literal 

will  be  0 or  more  occurrences  of  x 

will  be  a literal  which  is  interpreted 

to  be  positive. 

will  be  any  BALM  identifier 

will  be  a BALM  identifier 


3 . 3 The  Syntax  of  a Basic  Dilemma  Program 
3.3.0  Constants 

Constants  are  defined  by  the  CONSTANT  statement  in  the 

form: 

CONSTANT  item, item, ...» item  END; 

The  items  may  be  any  expression.  Usually,  however,  they  are 
numbers  or  BALM4  identifiers.  One  CONSTANT  statement  adds  to 
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the  next.  So  if  we  use: 


CONSTANT  A,B,C,D  END; 

CONSTANT  1,2,RTANG,3,4  END; 
we  would  have  nine  constants. 

In  input  form  constants  are  just  the  items  from  CONSTANT 
statements.  However,  internally  (and  in  output)  an  extra  set 
of  parentheses  are  added  to  turn  the  constant  into  a function 
of  zero  argioments,  so  the  input  constant  RTANG  becomes 
(RTANG)  internally. 

3.3.1  Expressions  and  Literals 

Expressions  and  literals  occur  in  two  forms  in  Dilemma. 
The  first  of  these  in  called  input  form.  Here,  Skolem 
functions  follow  the  rules  for  BALM4  expressions;  e.g. 

F(X) , G(X,Y) , S(X,  F(Y) ) . 

Any  BALM4  identifier  (which  has  not  been  in  a CONSTANT 
statement)  inside  of  an  expression  is  a variable  and  is 
local  to  the  Dilemma  statement  containing  that  expression. 
Function  and  predicate  symbols  are  just  BALM  identifiers. 

In  the  same  way  literals  (in  input  form)  follow  the  rules 
for  BALM4  expressions;  e.g.,  P(F(X)),  P(X),  Q(F(X),  Y) . 

Each  time  a predicate  or  function  is  used  it  must  have  the 
same  number  of  arguments. 

The  other  form  called  internal  form  is  more  LISP-liJce: 
all  commas  are  removed,  the  parenthese  are  shifted  to 


Cl 


0 


\ 


include  the  predicate  or  function  symbol,  and  variables  are 
changed  to  numbers;  e.g. 


I 


P(F{X),  X,  F(X))  is  changed  to  (P  (FI)  1 (FI)) 
Internal  form  is  used  for  output. 

3.3.2  Unit  Positive  Clauses 

The  simplest  Dilemma  statement  is  the  assertion: 

<name>  ASSERT  <literal>; 

For  example: 

LI  ASSERT  EQLINE  (L(X,Y),  L(Y,X)); 

Assertions  are  positive  unit  clauses;  they  need  not  be  ground. 

3.3.3  Implications 

In  Dilemma  an  implication  may  be  written: 

* 

<name>  THEOREM  <pos  literal>  FROM  <literal>  [A<literal>]  ; 

k 

The  idea  is  that  the  conjunction  of  literals  is  sufficient 
to  prove  the  <pos  literal>.  An  example: 

DESCARTES  THEOREM  EXISTS (X)  FROM  THINKS (X); 
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3.3.4  Negative  Clauses 

A negative  clause  is  always  the  last  input.  It  may 
be  specified  in  one  of  the  following  ways: 

(1)  PROVE (<lit>) ; The  lit  is  a unit  negative  clause 

* 

(2)  PROVE (<lit>[ a<liT>]  );  There  is  one  negative  clause. 

Each  literal  must  be  proved. 

(3)  PROVE(LIST(<lit>[ A<lit>l  . . ,<lit>[ A<lit>f) ) ; 

Prove  any  one  of  the  conjunctions. 

The  third  form  is  an  "or  of  ands".  The  clauses  are  ordered. 

It  is  more  efficient  to  enter  clauses  in  increasing 
complexity . 

The  name  of  an  assertion  or  implication  is  required. 

It  is  used  to  label  output  and  internally  to  reference  the 
clause.  (Internally,  the  corresponding  clause  is  actually 
assigned  as  the  value  of  the  identifier  used  to  name  it.) 


3.3.5  Coercions 


Coercions  are  used  to  state  that  two  expressions  are 
equal  (or  equivalent) . If  <el>  and  <e2>  are  predicates  then 
we  will  talk  about  their  equivalence.  Otherwise  these  are 
expressions  and  we  talk  of  their  equality.  In  either  case 
we  write  <el>  = <e2>.  To  say  that  <el>  = <e2>,  we  write: 

<name>  COER  <el>,  <e2>; 

Often  we  may  find  a condition  under  which  <el>  = <e2>  . The 
general  form  is 

* 

name  COER  <el>,  <e2>,  <lit> [A<lit>]  ; 

Suppose  H(X)  implies  F(X)  = G(X).  Then  we  may  write: 

HFG  COER  F(X) ,G(X) ,H(X) ; 

If  two  ground  items  are  not  equal  this  may  be  specified  by 
DIFFERENT ( < i teml > , < i tem2  > ) 


3.3.6  CPROCS 

In  order  to  have  a useful  language  we  need  to  be  able 
to  encode  lots  of  tricks  and  heuristics.  Dilemma  provides  a 
number  of  methods  which  let  the  user  alter  the  normal  flow  of 
control . 

Normally  a coercion  is  used  whenever  applicable.  However, 
we  frequently  know  the  restrictions  on  when  to  apply  a 
particular  coercion.  Suppose  we  have  a coercion  C COER  X,Y 
and  a BALM  procedure  P ; the  statement  C CPROC  P is  of  the 
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general  form 


<cname>  CPROC  <proc>; 

which  associates  the  procedure  and  the  coercion. 

We  call  P the  CPROC  of  the  coercion. 

A CPROC  is  called  just  before  the  associated  coercion 
is  applied.  Each  CPROC  has  three  arguments: 

1.  item  from  negative  clause  to  be  unified 

2.  item  from  mixed  or  positive  clause  to  be  unified 

3.  set  of  solutions  already  found  (NIL  if  none  is  found) 

The  solutions  are  each  a pair:  a list  of  added  literals, 

followed  by  a binding  list. 

The  arguemtns  to  a CPROC  are  in  internal  form  (the  LISPish 
way  to  write  a clause  without  commas) . CPROCs  return  either: 

1.  NIL  — don't  apply  the  coercion;  or 

2.  TRUE  — use  the  coercion;  or 

3.  a number  — which  becomes  an  additional  upper  bound 
on  depth  of  coercions  used.  Thus  if  a CPROC  returns  0 
then  the  coercion  will  be  applied  but  no  coercions 
will  be  used  below  it. 

CPROCs  often  will  use  the  function  GROUND (X)  which  is  true 
if  X is  a ground  expression,  CONSTANT (X)  which  is  true  if 
X is  a constant,  and  the  global  variable  UNIFDEPTH  which  gives 
the  current  recursive  level  inside  unification.  UNIFDEPTH  = 0 
at  the  top. 

Some  typical  CPROCs  are: 
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* cnly  use  the  coercion  if  no  other  solutions  have  been  found 
UNIQUE  = PROG(N,P,SOL) , SOL  EQ  NIL  END; 

* only  use  the  coercion  at  the  top  level  arguments 
TOP  = PROC (N,P,SOL) , UNIFDEPTH  EQ  0 END; 

* only  use  the  coercion  if  one  of  the  two  expressions  is  ground 
ONEG  = PROC (N,P, SOL) , GROUND(N)  OR  GROUND(P)  END; 

A rather  odd  way  to  define  a CPROC  is; 

C CPROC  PROC (N,P, SOL) , SOL  EQ  NIL  END; 

Here  we  have  defined  the  CPROC  and  associated  the  coercion 
in  one  statement. 

A number  of  global  variables  affect  just  how  coercions 
will  be  applied. 


BVARS 


ONEWAY 


if  true  don't  apply  any  coercions  whenever  both 
terms  are  variables.  Normally  this  is  true, 
if  true  apply  the  coercions  in  one  direction. 


That  is,  if  C COER  L,R  is  a coercion  only 
try  to  use  L with  the  item  from  the  negative 
clause  and  R with  the  item  from  the  positive 
clause.  Normally  this  is  false. 

MAXCOERS  the  search  for  a unifier  uses  this  value  as  a depth 
bound.  0 would  prevent  any  coercions  from  being 
used.  The  switch  can  be  used  to  turn  DILEMMA  into 
a standard  input  resolution  theorem  prover. 

The  actual  algorithm  used  to  apply  coercions  is  given  below: 


To  unify  N and  P with  the  coercion  C COER  L,R;  : 


(1)  If  N and  P are  variables,  and  BVARS  is  true, 
bind  N to  P and  return 

(2)  If  POSSIBLE (N,L)  and  POSSIBLE (P,R)  then 

a)  if  there  is  a CPROC  associated  with  C execute  it; 
return  false  if  it  returns  false 

b)  otherwise,  if  the  current  depth  is  less  than  MAXCOERS 
compute  the  set  of  unifiers  which  simultaneously 
satisfies  UNIFY(N,L)  and  UNIFY(P,R). 

(3)  If  ONEWAY  is  true,  then  return;  otherwise,  apply  (2) 
to  the  coercion  COER  R,L;  and  add  any  new  solutions 
found . 


In  the  above,  POSSIBLE (X,Y)  is  true  if 
X is  a variable  or  Y is  a variable  or  X and  Y start 
with  the  same  function  symbol. 


4 


3.4 


PARTIAL  EVALUATION 


Sometimes  we  know  exactly  how  to  solve  a problem  or  some 
part  of  a problem.  For  instance  we  could  have  a particular 
interpretation  which  suggests  values  of  functions.  Suppose 
we  have  a predicate 

P(x,y,z)  x*y  = z 

If  X,  y,  and  z are  all  integers,  we  may  check  this  predicate 
in  a model,  the  computer  hardware  arithmetic.  The  check  is 
done  by  the  following  sequence:  "multiply  x times  y and 
compare  with  z".  This  sequence  is  an  imperative  explaining 
how  to  check  items . 

If,  on  the  other  hand,  x were  a variable  we  would  like 
to  execute  the  following:  if  y and  z are  integers  and  y 0 

then 

set  X = z • y ^ 

In  addition,  once  a resolvent  is  computed,  there  are  often 
simplifications  to  be  made.  For  example,  we  could  represent 
items  in  a canonical  form.  Or,  we  could  evaluate  functions, 
e.g.  S(S(0))  goes  to  2 . At  the  same  time  we  may  add 
heuristic  functions. 

Partial  evaluation  is  a technique  of  associating  functions 
written  in  a standard  computer  language  with  predicates  and 
Skolem  functions.  The  collection  of  lower  level  functions  is 
called  the  computational  base.  Whenever  we  know  how  to  achieve 
some  part  of  a goal  in  a simple  way  we  may  add  a computational 

-66- 


s 


function  using  all  the  standard  tricks  of  the  computer 


programmer . 

We  may  associate  with  each  N place  function 
N+1  BALM  procedures.  Each  time  we  bind  a variable  which 
occurs  inside  a function  we  will  execute  the  associated 
procedures.  The  first  N of  these  procedures  corresponds 
to  the  arguments  of  the  function.  They  are  executed  only 
if  the  argument  is  a variable.  The  output  of  each  procedure 
will  be  a new  binding  for  the  variable.  The  last  procedure 
is  associated  with  the  function  as  a whole.  It  will 
return  a set  of  bindings  and  a value  which  is  to  replace  the 
function.  Each  of  these  procedures  gets  the  function 
as  its  argument.  A typical  function  would  be 
the  successor  function  S(n).  It  is  mapped  to  n+1  if  n is 
an  integer,  and  otherwise  it  returns  the  symbolic  quantity 
S(n)  . 

In  a similar  way,  we  can  associate  a BALM  procedure  with 
each  predicate.  The  result  of  executing  such  a procedure 
should  be  either  a replacement  literal , TRUE  indicating  that 
the  literal  may  be  assumed  true  or  FALSE  indicating  that  the 
literal  cannot  be  proved.  These  procedures  may  also  bind  variables. 

Several  previous  attempts  have  been  made  to  use  partial 
evaluation.  Applied  only  to  ground  clauses  and  then  only 
allowed  to  return  a truth  value,  ad  hoc  partial  evaluations 
could  be  constructed  easily.  However,  when  the  attempt  was 
made  to  generalize  to  some  variant  of  the  scheme  we  have 
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suggested,  a problem  appeared.  Suppose  we  have  a successor 
function  S(N)  where  for  instance  S(S(0))  evaluated  to  2. 
The  difficulty  occurs  when  we  have  to  unify  2 and  S (n ) • 

Since  no  binding  will  make  2 and  S (N ) identical,  they  could 
not  be  unified.  Yet  for  completeness  we  certainly  need 
them  to  be.  The  coercion  technique  provides  a way  of 
retaining  these  unifications.  All  we  need  do  is  find 
conditions  under  which  2 and  S(N)  are  equivalent.  We  could 
for  example  use  the  coercion: 

sue  COER  X,  S(N),  EQ(X,  PLUS(N,1))  . 

A second  use  of  partial  evaluation  is  to  adjust  the  global 
search  strategy.  In  the  course  of  executing  a procedure  we 
may  change  a number  of  global  variables.  These  delay  the 
expansion  of  certain  nodes  or  cause  others  to  be  processed 
immediately.  The  idea  is  that  low  level  computations  done 
inside  of  partial  evaluation  can  be  used  to  direct  the 
search  strategy.  If,  for  example,  we  had  a predicate 
INT(x,y,z)  to  stand  for  "integrating  x with  respect  to  y 
gives  z"  we  could  have  a clause  of  the  form 

INT(PLUS(P,Q)  ,Y,PLUS(R,S)  ) INT(P,Y,R)  A INT(Q,Y,S) 

If  we  wanted  to  use  this  rule  only  when  P was  simpler  than 
PLUS(P,Q)  we  could  add  an  additional  predicate: 

INT(PLUS(P,Q)  ,Y,PLUS(R,S)  ) ■*-  INT(P,Y,R)  A INT(Q,Y,S) 

A SIMPLEFORM(P,PLUS (P,Q) ) 

SIMPLEFORM  could  reject  terms  of  a complex  nature  by  return- 
ing FALSE  if  P or  PLUS(P,Q)  were  too  complex. 
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By  embedding  heuristics  within  the  partial  evaluation 
scheme  our  system  functions  rather  differently  than  other 
AI  languages.  In  a language  like  PLANNER,  a clause  is 
represented  by  an  ordered  sequence  of  pairs.  Each  pair 
consists  of  a literal  and  a filter. 

Prior  to  resolving  on  a given  literal,  the  filter  is 
called  to  produce  an  ordered  sequence  of  clauses  to  resolve 
with.  Often  the  filter  acts  as  a generator  producing  the 
elements  of  this  sequence  one  at  a time.  Resolution  is 
then  attempted  only  between  the  literal  and  the  first  clause 
in  the  sequence.  An  automatic  backup  system  allows  the 
program  to  eventually  compute  the  other  resolvents.  In  our 
system,  a clause  consists  of  a set  of  literals  and  strategies. 
When  we  have  selected  a literal,  we  resolve  it  with  all  other 
possible  clauses.  We  put  all  strategies  which  were  in  either 
parent  clause  into  the  resolvent.  Finally  we  execute  all 
of  these  strategies.  Besides  setting  global  variables,  the 
strategies  may  return  TRUE,  meaning  delete  this  strategy  from 
the  resolvent,  FALSE,  meaning  delete  the  resolvent,  or  another 
strategy  to  be  put  into  the  resolvent.  If  a strategy  returned 
a pointer  to  itself,  the  strategy  would  be  invoked  again  for 
descendants  of  the  resolvent. 

The  PLANNER  scheme  has  the  advantage  that  if  the  filter 
is  reasonable,  it  can  cut  down  the  number  of  attempted  resolu- 
tions. On  the  other  hand,  we  see  a number  of  advantages  to 
our  system.  First,  since  the  strategy  obtains  the  value  of 


variables  after  the  resolvent  has  been  computed  it  may  make 
a more  informed  decision.  Second,  all  the  strategies  are 
evaluated  at  each  point  rather  than  just  one.  Third,  since 
strategies  may  remain  in  the  descendants,  a strategy  may  wait 
in  making  a decision  until  additional  information  is  available. 
Finally  there  are  many  more  possibilities  for  parallelism  since 
we  compute  all  the  resolvents  at  once,  and  then  evaluate  the 
strategies  simultaneously.  Perhaps  we  should  add  one  more 
difference:  suppose  a literal  £ could  be  advantageously  resolved 
with  a literal  in  a clause  C.  In  PLANNER  the  recognition  of  that 
advantage  would  be  computed  by  a filter  associated  with  the  liter- 
al £.  In  our  language,  the  recognition  occurs  by  a strategy 
associated  with  C.  If  we  add  a new  clause,  we  need  only  put  the 
strategy  in  that  clause.  In  PLANNER  we  would  haveto  change  the 
filters  associated  with  all  old  literals  which  could  resolve  with 
this  clause.  Thus,  in  Dilemma,  as  we  add  new  clauses,  telling  of 
better  ways  to  do  things,  less  changes  need  to  be  made  in  the 
original  clauses. 

3.4.1  PARTEVAL 

The  PARTEVAL  statem.ent  is  used  to  associate  BALM 
procedures  with  the  partial  evaluation  of  function  and  predi- 
cate symbols.  These  procedures  which  we  will  call  PE's  are 
executed  just  after  the  resolvent  is  computed. 

<pred  symbol>  PARTEVAL  <proc>; 

<func  symbol > PARTEVAL  <proc>; 

The  argument  of  a PE  is  the  part  of  the  literal  which  starts 

at  the  predicate  or  function  symbol.  It  is  almost  in  internal 

form.  However,  variables  are  changed  to  the  BALM  id's 
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Xl,X2,X3, . . . ,X12.  If  we  have 

F PARTEVAL  FPROC; 

P PARTEVAL  PPROC; 

and  the  resolvent  contains  the  literal  (P  (F  1)  (A))  then 

the  execution  operates  as  follows.  First  FPROC  will  be 
called  with  argument  (F  XI) . If  FPROC  returns  its  argument, 
PPROC  will  be  called  with  (P  (F  XI)  (A))  as  its  argument. 

If  a PE  is  used  for  a function,  it  must  return  a replacement 
expression  (one  possibility  is  its  argiiment)  . To  reject  a 
clause  the  function  need  only  set  the  global  variable  RETAIN 
to  FALSE. 

PE's  used  for  predicates  may  return 

1.  TRUE  — delete  the  literal 

2.  FALSE  — delete  the  clause 

3.  replacement  literal. 

For  PE's  which  are  to  be  associated  with  predicates  an 
alternative  diction  is  available: 


<pred>  PART  <i>  = <proc>; 


1 < i < 6 


In  this  form  the  PROC  is  called  only  if  the  i^  argument  of 
the  literal  is  a variable.  It  may  return: 


TRUE  — delete  the  literal 


2 . FALSE  — delete  the  clause 


3.  A binding  for  the  variable  which  will  malce  the  literal  true 

4.  A replacement  literal. 

PE  procedures  generally  consist  of  w.  few  calls  to  built-in 
functions.  We  will  first  describe  several  of  these  functions 
in  detail  and  then  later  give  a complete  list. 
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The  built-in  function  BIND (expl ,exp2)  is  used  to  assign 
values  to  Dilemma  variables;  expl  is  replaced  by  exp2.  One  of 
the  odd  properties  of  BIND  is  that  anything  may  be  bound  to 
anything  else.  If  we  bind  (F  XI)  to  (G  Xl)  then  all  (F  XI) 
expressions  in  the  clause  are  changed  to  (G  XI) . Also  if  we 
bind  a variable  other  than  XI , X2 , . . . , X12  to  a value  that  fact 
is  recorded  on  a special  list  which  is  associated  with  the 
clause.  PE's  may  use  BIND  to  communicate.  The  function 
ISBOUND(ID)  finds  out  if  ID  is  bound  or  not.  The  result  of 
ISBOUND  is  TRUE  or  FALSE.  The  global  variable  BNDVAL  gets 
the  bound  value.  CRACK  is  a generalized  assignment,  e.g. 

CRACK (pattern, expression) . Its  first  argument  is  a pattern. 
This  is  matched  with  the  second  argument;  structure  and 
constants  must  match.  Whenever  a variable  is  matched  with  a 
subexpression,  an  assignment  is  made.  An  additional  Dilemma 
statement  allows  variables  to  be  typed; 

TYPE  <id>  = <proc>; 

Typed  variables  are  global . Prior  to  CRACK  assigning  a value 
to  a typed  variable,  the  procedure  is  called  with  the  value 
as  its  argument.  The  assignment  is  carriedout  only  if  the 
procedure  returns  true.  CRACK  itself  returns  a value:  TRUE, 
if  the  pattern  matches  the  expression  and  all  assignments 
could  be  carried  out;  and  FALSE  otherwise.  Suppose 
ARG  = ' (P  (1)  (2)  (3)).  Then  CRACK ( ' (T  X Y Z) , ARG) 
would  be  true  and  would  set  the  values  of  T to  'P,  X to  ' (1) , 

Y to  ' (2)  , and  Z to  ' (3)  . 


1 


If  we  had  said  TYPE  X = INTQ;  TYPE  Y = INTQ;  TYPE  Z=INTQ; 
the  assignments  would  beT='P,  X=l,  Y=2,  and  Z = 3. 

If  ARG2  = ’ (P  XI  3 4)  then  CRACK  (’  (T  X Y Z) , ARG2) 

would  be  false. 

Suppose  we  want  to  do  addition  by  means  of  a PE. 

We  could  have  a predicate  ADDSUP (X,Y,SUM)  which  is 
true  if  X + Y = SUM.  If  X,  Y and  SUM  are  all  numbers, 
say  1,  2,  5,  then  a PE  associated  with  ADDSUP  would  be  called 
with  (ADDSUP  (1)  (2)  (5))  as  its  argument. 

We  could  type  the  arguments  as  above.  Then  CRACK 
would  set  X=l,  Y=2,  Z=5.  So  the  addition  PE  would  be 

ADDSUP  = PROC (PRED) , 

IF  NOT (CRACK (' (T  X Y Z) , PRED))  THEN  PRED 

ELSE  (X  + Y)  EQ  Z END;  , 

I 
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3.5  Completions 


Suppose  we  had  a negative  clause  1(P(x)  a q(x)) 
and  resolve  away  the  P(x)  in  a series  of  steps,  jf  x receives  the 
final  value  f{g(a)),  we  may  summarize  the  closed  subtree  by 
the  positive  literal  P(f(g(a))). 

We  will  call  such  a positive  literal  the  completion  of 
the  associated  negative  literal.  In  a sense,  the  completion 
of  a literal  is  a lemma  of  the  proof.  The  lemma  procedure  of 
model  elimination  [ 4 ] finds  lemmas  in  this  way.  Since  each 
completion  is  a new  unit  clause  implied  by  the  set  of  clauses, 
we  may  add  the  completions  to  the  original  set.  Furthermore, 
since  these  units  have  already  been  generated  by  the  proof, 
resolutions  involving  these  units  are  likely  to  be  useful. 

To  that  end,  when  we  produce  a completion  we  enter  a unit 
resolution  mode  attempting  to  produce  new  clauses  specialized 
to  the  problem.  For  example,  suppose  we  try  to  prove  two 
lines  equal  by  showing  that  corresponding  triangles  are  congru- 
ent. When  we  remove  the  literal  for  convergence  we  may  resolve 
the  completion  with  clauses  of  the  form 

CONGRUENCE  -»■  EQLINE 
CONGRUENCE  EQARG 

to  derive  a set  of  units  saying  that  corresponding  points  of 
congruent  triangles  are  equal.  Of  course,  completions  are 
able  to  generate  a lot  of  additional  clauses.  In  the  imple- 
mentation a number  of  processes  are  available  to  cut  down 


i 
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completions.  These  processes  allow  us  to  associate  BALM 
procedures  with  predicate  symbols.  Whenever  a literal  is 
completed  the  BALM  procedure  associated  with  its  predicate 
symbol  is  called.  This  procedure  may  return: 

(1)  TRUE  --  add  the  completion  to  the  input  clauses 

(2)  FALSE  --  don't  add  it 

(3)  A list  of  names  of  other  clauses  — the  system 

will  do  unit  resolutions  with  these  clauses  and  any  of 
their  descendants  produced  by  this  or  earlier  completions. 

3.5,1.  Completion  Syntax 
The  statement 

<proc>  COMPLETES  <pred>; 

causes  procedure  <proc>  to  be  called  when  a positive  unit 
with  the  predicate  symbol  <pred>  is  produced.  The  procedure 
receives  the  unit  as  the  argument.  The  procedure  may  return 

(1)  TRUE  — add  the  unit  to  the  positive  clauses 

(2)  FALSE  --  don't  add  the  unit 

(3)  A list  of  names  of  theorems.  This  is  interpreted  to  mean: 

do  one  step  of  unit  resolution  with  the  unit 
on  each  of  these  theorems  and  on  any  dependents 
of  the  theorems  produced  by  this  or  earlier 
completions.  (An  empty  list  of  names  acts  like  FALSE). 
Effectively  completions  add  a unit  resolution  component. 

When  completions  are  provided  each  clause  may  contain  literals 
of  the  form  (MARK  x) , where  x is  a literal  previously  resolved 
upon . 
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3.6.  How  to  Control  the  Search 


Clauses  are  selected  in  complexity  order  (lowest  merit 
first).  The  procedure  COMPLEX (x)  computes  the  complexity  of 
the  list  of  literals  x. 

The  function  SELECTl(x)  returns  one  of  the  literals 
in  the  list  of  literals  x.  This  will  be  the  next  literal 
resolved  on. 

The  built-in  functions  COMPLEXITY  and  SELECTl  are 
defined  as 

COMPLEXITY  (x)-^-^  number  of  symbols  in  x 
SELECTl  (x)  ■*-■*  return  the  hd  of  x. 

A number  of  functions  are  provided  which  may  be  used  when 
writing  new  versions  of  these  procedures . (Many  of  these 
functions  are  similar  to  standard  BALM  functions  but 
use  EQUAL  rather  than  EQ . ) 


DELETE (item, list) 


VARIABLE (item) 


LOOKUP (item, list) 


MEMBER (item, list) 

SETPROP (id , prop-name , value) 


POSLIT  OF  name 


returns  list  with  item  removed, 
changes  list  in  place, 
returns  true  if  item  is  a variable 
e.g.  an  atom  which  is  not  a constant 
returns  the  value  associated  with 
item  on  list.  False  if  item  is  not 
on  list. 

returns  true  if  item  is  on  list 
sets  the  property  prop-name  of 
variable  id  to  value, 
returns  a copy  of  the  positive 
literal  of  a clause  name. 
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Also  three  global  variables  are  of  interest  when  writing 
these  functions. 


NEGS 

DONE 

NOTEQLIST 


all  contexts  not  yet  resolved  on 
all  contexts  already  used 
ground  pairs  known  not  to  be 
unif iable . 


3 , 7 Puilt-In  Equality 
The  clause 

REFLEX  ASSERT  EQl(x,x); 
is  built-in.  The  clause 

THEOREM  EQl(x,y)  FROM  EQ2(x,z)  A EQ2(z,y); 
is  built-in.  EQl  and  EQ2  are  unif iable  (however  a coercion 
must  be  used  in  the  unification) . 


3.8 


CLAUSEPRINT 

NEGPRINT 

MAXLITS 

MAXLEVEL 

MAXCOERS 


System  Parameters 

Users  may  wish  to  change  the  following  control  variables: 
print  each  resolvent  if  true 
print  each  negative  clause  before  finding 
possible  resolvents 
maximum  length  of  a clause 
maximum  depth  of  a clause  (0  is  the 
depth  of  an  input  clause) 

maximum  number  of  coercions  used  in  1 unification 
maximuiT)  complexity  value 


MAXCPX 


MAXNEST 


maxim' .m  number  parentheses  of  a clause 
DEBUG  If  tr"c  the  system  will  print  intemediate 

results;  this  is  for  internal  debugging  of 
the  system  rather  than  of  DILEMMA  programs. 
However,  it  often  will  prove  useful  in  remov- 
ing some  of  the  trickier  bugs. 

3 .9  A Complete  Example  --  Missionaries  and  Cannibals 
Using  PE  Functions 

As  an  example,  we  will  give  a program 
for  the  usual  missionary  and  cannibal  prob- 
lem. Suppose  there  are  3 missionaries  and  3 cannibals  on 
one  side  of  a river,  and  a boat  which  holds  at  most  2 people. 

We  wish  to  find  a sequence  of  moves  which  gets  everyone 
across  the  river  without  ever  having  a group  of  missionaries 
outnumbered . 

We  will  use  the  following  predicates. 

the  problem  may  be  solved  with  C cannibals, 

M missionaries  and  the  boat  on  the  right 
*-->■  X is  less  than  or  equal  to  the  number  of 
people  who  can  be  on  the  boat 
X £ y 

it  is  OK  to  have  C cannibals  and  M missionaries 
together 

0 < X £ 2 
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RIGHT  (c  ,m) 

INRANGE (X) 

LTEl (x,y) 
OK (C,M) 

OKBOAT(X) 


? 

I 

1 


^ 

LEFT(C,M)  -»--*■  equivalent  of  right  with  C cannibals, 

M missionaries,  and  the  bota  at  the  left. 

BEST(X,Y)  a heuristic  predicate 

EQL(x,y)  X = y 

and  the  following  functions: 

PLUS  (x  ,y)  X + y 

MINUS  (x  ,y)t--*-  X - y 

The  DILEMMA  program  for  solving  this  problem  is  as 
follows : 

CONSTANT  0,1, 2, 3, 4, 5, 6 END; 

RT  THEOREM  RIGHT (CX, MY)  FROM 

INRANGE  (X)  A INPA.NGE(Y)  A LTE1(X,CX)  A LTE1(Y,MY) 

A OK (PLUS (MINUS (3, CX) , X),  PLUS (MINUS (3 , MY),  Y) ) 

A OK (MINUS (CX,X) , MINUS (MY, Y)) 

A OKBOAT(PLUS (X,Y) ) A LEFT (PLUS (MINUS (3 ,CX)  ,X)  , PLUS (MINUS (3 , MY)  ,Y) ) 

A BEST(PLUS(MINUS(3,CX) ,X) , PLUS (MINUS (3 ,MY) , Y) ) ; 

LT  THEOREM  LEFT (CX, MY)  FROM 

INRANGE (X)  A INRANGE (Y)  A LTE1(X,CX)  A LTE1(Y,MY) 

A OK (PLUS (MINUS (3 ,CX) ,X) ,PLUS (MINUS (3 ,MY) ,Y) ) 

A OK (MINUS (CX ,X) , MINUS (MY, Y)) 

A OKBOAT (PLUS (X,Y) ) A RIGHT (PLUS (MINUS (3 ,CX) X) , PLUS (MINUS (3 , MY) ,Y) ) 

A BEST (MINUS (3 ,CX) , MINUS (3 ,MY) ) ; 


INZEKO 

THEOREM 

INRANGE (X) 

FROM 

EQL(X,0)  ; 

INONE 

THEOREM 

INRANGE (X) 

FROM 

EQL(X,1) ; 

INTWO 

THEOREM 

INRANGE (X) 

FROM 

EQL(X,2) ; 

EQL 

ASSERT 

EQL(X,X) ; 
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TYPE  XV  = INTQ;  TYPE  YV  = INTQ; 

LTEl  PARTEVAL  PROC(PRED); 

IF  NOT (CRACK (=(T  XV  YV),PRED))  THEN  PRED  ELSE  XV  LE  YV  END; 
MINUS  PARTEVAL  PROC{X  FN) , 

IF  NOT (CRACK(=(T  XV  YV),FN))  THEN  FN  ELSE  XV-YV  END; 

PLUS  = PROC(FN), 

IF  NOT(CRACK(=(T  XV  YV),FN))  THEN  FN  ELSE  XV+YV  END; 

PLUS  PARTEVAL  PLUS; 

OKA  THEOREM  OK(C,M)  FROM  LTEl(C,M); 

0KB  ASSERT  OK(C,0); 

OKBOAT  THEOREM  OKBOAT(X)  FROM  LT1(X,3)  a LT1(0,X); 

LTl  PARTEVAL  PROC(FN),  IF  NOT (CRACK (= (T  XV  YV),FN))  THEN 
FN  ELSE  XV  LT  YV  END; 

* BEST  ADJUSTS THE  HEURISTIC  VARIABLE  MERIT 
BEST  PARTEVAL  PROC(PRED),  BEGIN ( ), 

IF  NOT (CRACK (= (T  XV  YV),PRED)  THEN  RETURN  PRED, 

MERIT  = -(XV  + YV) , RETURN  TRUE 
END  END; 

* THE  PROVE  STATEMENT 
PROVE (LEFT (3, 3) ) ; 


The  actual  run  of  this  example  produces  a 93  level  proof 
generating  some  678  resolvents. 


3.10  Implementation  Outline 

The  information  in  this  section  may  be  useful  for  writing 
fancy  PEs  and  CPROCs.  Internally,  a clause  is  represented 
by  an  8 element  vtctor  called  a context,  whose  elements  are: 

(1)  id  *0xx  is  a generated  name 

(2)  pointer  to  negative  parent 

(3)  pointer  to  literals  (as  a tree  structre) 

(4)  length  in  negative  literals 

(5)  mixed  or  positive  parent 

(6)  special  bindings 

(7)  depth  of  clause  (0  is  an  input  clause) 

(8)  merit  (actually  complexity)  of  clause 

The  variables  in  a clause  are  represented  by  numbers. 

Constants,  function  symbols,  and  predicates  are  heads  of  lists. 
Variables  are  not. 

3.10.1  Macros 

The  following  set  of  macros  is  provided  for  accessing  parts 


of  a 

clause : 

(1) 

NAMEOF (context) 

- name  of  the  clause 

(2) 

NEGPAR (context) 

- returns  vector  pointer 

to 

parent 

(3) 

LITLIST (context) 

- literals  in  internal  form 

(4) 

CLENGTH (context) 

- length  in  terms  of  number 

of  literals 

(5) 

MIXEDPAR (context) 

- returns  vector  pointer 

to 

parent 

(6) 

BINDING (context) 

- special  bindings 

(7) 

DEPTHVAL (context) 

- depth  of  clause 

(8) 

MERITVAL (context) 

- merit  of  clause 

The  above  set  can  be  used  as  the  left-hand  side  of  an  assign- 
ment statement. 


3.10,2  Functions 


BIND (expl,exp2)  - 


ISBOUND(var) 


ISBOUND(var,c)  - 


GROUND (x) 

INPUTCL (context)  - 


replace  expl  by  exp2  in  the  clause; retain 

this  if  expl  is  a variable  other  than  an  x 

see  if  this  resolvent  or  an  earlier  parent 

had  an  assignment  for  this  variable  (returns 

true  or  false)  (sets  NEDVAL=binding  value  if 

found) 

similar  to  ISBOtND(var) 

but  starts  search  at  context  c 

true  iff  X is  a ground  item 

true  iff  context  is  an  input  clause 


3.10.3  Other  Details 

Three  global  variables  are  often  used  by  the  PE  programmer. 
CURCONTEXT  - current  resolvent  in  packed  vector  form 

DEPTH  - depth  of  curcontext; 

level  0 = input  clause 
MERIT  - merit  of  curcontext; 

"lowest  merit  first"  is  the  selection  rule. 


A listing  of  the  system,  together  with  more  detailed 
information  on  the  implementation,  is  given  in  Appendix  I. 


3.11  Dilemma  Syntax  Summary 


Basic  Objects 


literals 


lists  of  literals 


procs 

predicate  symbols 
function  symbols 


constants 


contexts 


BALM  objects  of  type  identifier 


one  or  more  literals  separated  by  a 
BALM  objects  of  type  code 
BALM  objects  of  type  identifier 
BALM  objects  of  type  identifier 
functions  of  zero  arguments,  or 
(identifier,  in  input  form) 
vector  forms  of  clauses  (used  as  a 
internal  form) . 


Statement  Types 

(1)  DIFFERENT (x,y) 


indicates  that  the  ground  items  x and 


y are  not  unifiable 

(2)  CONSTANT  x,y,z  END;  x,y,z  will  each  be  constants  and  are 

BALM  identifiers 

(3)  name  ASSERT  literal  defines  a positive  unit  clause 

(4)  name  THEOREM  literal  FROM  list  of  literals 

defines  a mixed  clause.  The  literal 
is  positive,  each  of  the  list  of 
literals  is  negative. 

(5)  name  COER  expl,exp2;  simple  coercion,  expl  is  equal 

(or  equivalent  to)  exp2. 
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(6)  name  COER  expl,epx2,  list  of  literals 


r 


compound  coercion,  expl  equivalent 
or  equal  to  exp2  under  conditions 
(list  of  literals) 

(7)  PROVE (list  of  literals);  last  statement  in  a program. 

The  list  of  literals  is  talcen  to  be 
a negative  clause;  may  be  written 
as  PROVE (LIST (list  of  lits,  list 
of  lits,  ...,  list  of  lits)); 
if  there  is  more  than  one  initial 
negative  clause. 

(8)  proc  COMPLETES  predicate;  associates  the  procedure 

with  the  predicate  for  completions 

(9)  proc  CPROC  name;  The  procedure  <proc>  will  be  executed 

during  unification  before  the  COERcion 
<name> . 

(10)  pred  PART  i = proc;  pred  will  be  executed  after  computing 

the  resolvent,  provided  the  ith 
argument  of  the  predicate  is  still 
a variable 

(11)  pred  PARTEVAL  proc;  proc  will  be  executed  just  after  the 

resolvent  has  been  computed. 

(12)  TYPE  var  = proc;  proc  will  be  executed  just  before 

an  assignment  is  made  to  the  var  by 
CRACK. 


% 


We  have  claimed  that  the  Dilemma  programming  language 
is  extremely  expressive,  and  that  complex  processes  may  be 
encoded  in  relatively  simple  ways.  In  order  to  illustrate 
the  use  of  Dilemma  and  to  give  some  evidence  in  support  of 
this  claim,  we  will  describe  a program  which  produces  proofs 
for  a small  subset  of  elementary  geometry  theorems.  The 
subset  includes  the  equality  of  angles  and  of  the  length 
of  lines,  the  parallelism  of  lines,  and  the  congruence  of 
triangles . 

Gelernter  [10]  wrote  the  first  program  which  could 
produce  proofs  for  geometry.  He  introduced  the  notion  of 
reasoning  backwards.  Here,  one  starts  with  the  theorem, 
replaces  it  by  the  conditions  which  imply  it,  and  then,  in 
turn,  replaces  those  conditions  by  their  antecedents. 

This  process  is  continued  until  the  conditions  have  been 
replaced  by  axioms.  Backward  reasoning,  which  has  also  been 
called  "Goal  Directed  Reasoning",  is  always  used  by  Dilemma 
programs  except  when  a completion  is  being  applied. 

Gelernter  also  introduced  three  major  heuristics.  Each  of 
these  involved  the  use  of  a semantic  model.  The  program  was  given 
a "picture"  in  the  form  of  coordinates  of  each  point.  In  the 
first  heuristic,  goals  would  be  rejected  if  they 
were  false  in  this  picture.  Additionally,  if  the  goal 
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contained  a free  variable,  then  the  program  would  replace 
the  goal  by  the  set  of  instances  using  only  the  constants 
in  the  picture.  False  instances  would  immediately  be 
rejected.  This  pruning  heuristic  trimmed  the  search  tree 
from  1000  alternatives  at  each  stage  to  five.  Our  program 
will  allow  free  variables  to  remain  in  goals;  since  we  don't 
need  to  pick  particular  instances,  each  clause  will  represent 
a number  of  different  alternatives.  The  rejection  heuristic 
would  be  successful  only  if  every  alternative  could  be 
^ rejected,  at  once.  It  will  turn  out  that  we  do  not  need  to 

use  an  analytic  geometry  model  to  reject  goals. 

The  second  use  of  a model  was  to  evaluate  the  truth  of 
"self-evident"  statements.  Such  statements  include,  for 
' example,  facts  about  the  ordering  properties  of  points  on  a 

line,  or  the  intersection  properties  of  lines  on  a plane. 

If  the  statement  was  true  in  the  model,  it  was  assumed  "proved 
by  observation".  In  the  Dilemma  program,  these  "self-evident" 
truths  are  computed  by  partial  evaluation.  A third  use  of  the 

* model  was  to  identify  a given  angle  or  line  with  all  of  its 

names,  and  to  assume  equality  between  any  two  different  names 

of  the  same  object.  We  use  coercions  to  allow  the  alternative 

• names  of  lines  and  angles  to  be  equivalent. 

The  second  major  heuristic  introduced  by  Gelernter  was 
a point  construction  routine.  When  all  else  failed,  the  program 
would  pick  two  points  in  the  pioture  and  draw  the  line  between 
' them.  This  line  would  then  be  extended  to  all  of  its  inter- 
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sections  with  the  other  lines  of  the  picture.  Each  point  of 
intersection  would  become  a new  constant.  Finally  the 
program  would  start  again.  Our  program  will  do  constructions 
by  unification,  a way  which  v/e  believe  more  natural. 

Syntactic  symmetry  was  the  last  of  Gelernter's 
heuristics.  Here,  one  associated  a function  a with  each  model. 
Two  goals  would  be  considered  variants  of  each  other  if  a 
applied  to  the  first  gave  the  second.  The  program  would 
need  to  prove  only  one  variant  of  each  goal.  The  Dilemma 
notion  of  alphabetic  variant  is  certainly  much  weaker.  It 
is  not  clear  just  how  often  additional  clauses  could  be 
removed  if  syntactic  symmetry  had  been  included. 

Gelernter's  program  was  quite  long;  about  20000  lines 
of  code.  The  examples  G1  through  G5 , which  we  will  describe 
below  were  all  solved  by  it.  Several  researchers 
attempted  to  clarify  how  these  heuristics  worked.  It  has 
been  felt  that  the  model  heuristics  were  highly  efficient, 
that  they  could  be  used  in  areas  other  than  geometry,  and 
that  they  were  necessary  to  backward  reasoning. 

Goldstein  [13]  wrote  a program  for  geometry  theorem 
proving  based  on  Gelernter's.  Goldstein's  system  called 
BTP  (Basic  Theorem  Prover)  again  was  goal  directed.  He  tried 
to  develop  a high-level,  "natural"  formalism  to  represent 
geometry  knowledge  as  programs.  He  introduced  the  idea  of 
canonical  naming.  Great  simplifications  would  result  if  lines 
could  have  unique  images.  His  system  worked  as  follows: 
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Points  could  be  ordered  by  their  position  in  a diagram. 

Lines  would  be  denoted  by  storing  their  end  points  in 
increasing  order.  Angle  ABC  would  imply  that  A was  less 
than  C.  Goldstein's  program  was  also  based  on  an  analytic 
geometry  model.  It  was  written  in  a somewhat  modified 
MICRO-PLANNER.  Here,  the  simple  automatic  backup  mechanisms 
proved  to  be  an  obstacle.  First  it  was  necessary  to  program 
explicit  checks  for  duplicate  goals.  Second,  automatic 
backup  requires  that  any  search  be  bounded.  Thus  his  program 
could  not  create  new  points.  Finally  it  was  necessary  to 
give  up  completely  on  one  goal  before  trying  an  alternative. 
The  problems  GO  through  G4  were  solved  by  the  BTP  program. 

Goldstein  then  proposed  a second  program  to  be  called 
PTP  (the  Plausible-move-generating  Theorem  Prover) . This 
program,  which  was  not  actually  implemented,  would  do 
constructions  in  the  following  way:  VThenever  a clause  involv- 

ing a new  point  occurred,  a plausible  construction  procedure 
would  be  used  to  find  a new  point  meeting  the  conditions 
specified  by  the  clause.  Goldstein's  idea  was  that  a special 
procedure  could  be  written  for  each  type  of  construction  and 
each  clause  that  introduced  a new  point.  Unification  would 
select  the  correct  clause,  and  thereby  one  or  more  useful 
move  generators. 

Nevins  [28]  tried  to  clarify  the  use  of  a model  by 
writing  an  additional  geometry  program.  He  argued  that  the 
essential  inform.ation  held  in  a model  was  not  numeric;  in  fact, 
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that  it  was  the  canonical  ordering,  the  equivalence  of  names,  : 

and  information  on  what  looked  parallel.  His  program  ordered 

points  lexicographically.  No  diagram  was  required.  Nevins 

felt  that  the  use  of  a model  had  forced  previous  researchers 

to  write  goal-directed  programs.  In  his  system,  he  included 

both  forward  and  backward  reasoning.  The  heart  of  his  technique 

was  a separately  written  LISP  procedure  for  each 

paradigm  of  geometry.  This  program,  which  is  perhaps  the 

most  efficient  geom.etry  theorem  prover,  has  no  provision 

for  generating  new  points.  The  only  aspects  of  a model 

which  are  used  are  nonnumeric.  There  is  a list  of  lines 

which  look  parallel.  Our  own  system  is  highly  goal-directed, 

and  is  designed  to  construct  new  points  through  unification. 


4 . 1 Basic  Objects  and  Their  Intended  Meanings 


We  have  11  constants.  RTANG  and  STANG  represent 
constant  angles.  RTANG  is  90  degrees,  STANG  is  180°.  We 
have  nine  constants  intended  to  represent  points: 

E,  P,  K,  N,  M,  C,  D,  Q,  and  B.  We  will  introduce  a total 
ordering  on  these  constants  byE<P<K<N<M<C<D<Q<B. 
This  particular  arrangement  is  produced  by  the  BALM  IFROMID 
primitive . 

Only  three  logical  functions  are  required.  The  first, 

L{x,Y)  is  intended  to  map  pairs  of  points  to  lines.  The 
second  A(X,Y,Z)  is  intended  to  map  triples  of  points  to 
angles.  Using  partial  evaluation  we  will  associate  canonical 
ordering  procedures  with  these  functions.  The  third  Skolem 
function,  MIDPT(X,Y)  is  intended  to  mean  the  point  midway 
between  X and  Y. 

The  predicates  allowed  in  this  system  are: 

CONG  (X,Y , Z ,U,  V,W)  «■  triangle  XYZ  is  congruent  to 

triangle  UVW 

the  length  of  line  S is  equal  to 
that  of  line  T 

(3)  EQANG(X,Y)  «•  the  size  of  angle  x equals 

that  of  angle  Y 

PARALLGM(X,Y,Y,  Z)  ♦♦  X,Y,U,V  are  the  corners  of  a 

parallelogram 


(1) 


(2)  EQLINE(S,T) 


(4) 


-90- 


s 


(5)  COLIN(X,Y,Z) 


points  X,Y,Z  are  collinear  in  that 
order . 


( 

4 


(6) 

(7) 

(8) 
(9) 

4.2 


PARALLEL (S,T) 
DOWN(X,Y,Z,U,V,W) 
DOWN  30  (X) 
DIFF3(X,Y,Z) 


«•  line  S is  parallel  to  line  T 

a heuristic  predicate  defined  below 
♦»  a heuristic  predicate  defined  below 
X,  Y,  and  Z are  distinct  points. 


The  Logical  Axioms 


We  will  now  describe  the  clauses  containing  geometric 
information.  This  is  the  information  given  to  the  outer 
theorem  prover . 


Segment  Equality 

(1)  a line  is  always  equal  in  length  to  itself. 

LREF  ASSERT  EQLINE(X,X); 

(2)  Two  segments  are  equal  if  they  both  equal  a third. 

LTPANS  THEOREM  EQLINE{X,Y)  FROM  EQLINE(X,Z)  A EQLINE(Z,Y) 

A DOWN30 (X) ; 

The  introduction  of  a new  line  through  transitivity  is 
generally  a poor  way  to  do  a proof.  The  predicate  DOWN30  will 
make  a clause  30  points  more  complex.  This  is  one  of  the  ways 
in  which  a predicate  may  be  used  to  effect  the  search  strategy. 

(3)  Sums  of  equal  segments  are  equal. 

LPART  THEOREM  EQLINE (L ( X, Y) , L(U,V)) 

FROM  EQLINE(L(X,R) , L(U,S))  A EQLINE (L (R, Y ) , L(S,R)) 
A COLIN (X,R,Y)  A C0LLN(U,S,R) ; 

This  axioms  corresponds  to  the  following  picture: 
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XY  = UV  if  XR  = US  and  RY 

V* 


(4)  Corresponding  parts  of  congruent  triangles  are  equal. 
LONG  THEOREM  EQLINE (L (X, Y) , L(U,V))  FROM 

CONG(Y,Z,X,R,W,U)  A DIFF3(X,Y,Z)  ^ DIFF3(U,V,W) 

This  theorem  may  construct  new  points  Z and  W.  The  DIFF3 
predicates  prove  that  these  added  points  really  form  triangl 

(5)  The  sides  of  an  isosceles  triangle  are  equal. 

LISOC  THEOREM  EQLINE (L (X, Z) , L(Y,Z))  FROM 

EQANG(A(Z,X, Y) , A(X,Y,Z)); 

(6)  A line  parallel  to  the  base  of  a triangle,  which 
bisects  one  side,  bisects  the  other. 

LPARBASE  THEOREM  EQLINE (L (X, Y) , L(Y,Z))  FROM 

EQLINE (L (Z,W) , L(W,V))  A PARALLEL (L (Y ,W) , L(X,V) 
A COLIN (X,Y,Z)  A COLIN(Z,W,V) ; 


if  YW  I XV  and  ZW  I WV  , 
then  XY  = YZ 

(7)  Midpoints  bisect  lines. 

LMID  ASSERT  EQLINE (L (X,MIDPT (X,Y) ) , L (Y,MIDPT (X, Y) ) ; 

Additional  ways  in  which  lines  may  be  proved  equal  are  foun( 
ir  the  section  on  coercions. 
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(13)  Corresponding  angles  of  parallel  lines  are  equal. 


ACOR  THEOREM  EQANG (A (R, Y, X) , A(Z,X,J)) 

FROM  PARALLEL (L (W, R) , L(U,Z)) 

A COLIN(W,Y,R)  A COLIN(U,X,Z)  A COLIN (Y,X,J); 


if  WR  I UZ. 
then  2fRYX  =^ZXJ 

J 

(14)  Alternate  interior  angles  of  parallel  lines  are  equal. 


ALTERl  THEOREM  EQANG (A (X, Y, Z) , A(U,Z,Y))  FROM 
PARALLEL (L (Y, X) , L(U,Z)) 

IF  XY  I UZ  then 
^XYZ  = ^UZY 

(15)  Vertical  angles  are  equal. 

VERTICAL  THEOREM  EQANG (A (X, Y, Z ) , A(U,Y,K)) 
FROM  COLIN (X,Y,W)  A COLIN (U,Y,Z) 


(16)  Two  right  angles  add  up  to  a straight  line. 

RTEQ  THEOREM  EQANG (A (X, Y, Z ) , RTANG)  FROM  EQANG (A (T, Y, X] 
Xi 


, RTANG) 


T 


_Q1 

Y 


Z 
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A COLIN(T,Y,Z) 


J 


V 


r 


1 i 


1 

Congruence  of  Triangles 

(17)  A triangle  is  always  congruent  to  itself.  j 

CREF  ASSERT  CONG (X,y,Z,  X,Y,Z);  i 

(18)  Congruence  by  transitivity. 

CRANS  THEOREM  CONG (X, Y, Z , U, V, W)  FROM 
CONG(X,Y,Z,P,Q,R)  A CONG (P , Q, R, U, V, W) 

^ DOWN(X,Y,Z,U,V,W) ; 

(19)  The  common  ways  to  prove  congruence,  side-angle-angle: 

CSAA  THEOREM  CONG (X, Y, Z , U, V, W)  FROM 
EQLINE(L(X,Y) , L(U,V))  A EQANG (A (X, Y, Z) ,A (U, V,W) ) 

A EQANG(A(Y,Z,X) , A(V,W,U); 

(20)  Side-side-side 

CSSS  THEOREM  CONG(X, Y, Z,U,V,W)  FROM 
EQLINE(L(X,Y) , L(U,V))  A EQLINE (L (Y, Z) , L(V,W)) 

A EQLINE (L (X, Z) , L(U,W)); 

(21)  Side-angle-side 

CSAS  THEOREM  CONG (X, Y, Z , U, V, W)  FROM 
EQLINE(L(X,Y) , L(U,V))  A EQLINE (A (X, Y, Z) ,A (U, V,W) ) 

A EQLINE (L (Y, Z) ,L(V,W) ) ; 


1 


Congruence  is  independent  of  the  position  of  the  viewer. 
Thus  we  may  turn  the  page  over  or  around.  We  need  to 
include  generators  of  the  dihedral  group  to  allow  all 
possible  ways  of  proving  congruence. 

(22)  CPERM  THEOREM  CONG(X,Y, Z,U,V,W) 

FROM  CONG(Y,Z,X,V,W,U) ; 

(23)  CFLIP  THEOREM  CONG (X, Y, Z , U, R, W) 

FROM  CONG(X,Z,Y,U,W,V) ; 

(24)  The  diagonal  of  a parallelogram,  divides  the 
parallelogreim  into  two  congruent  triangles. 

CPARAL  THEOREM  CONG (X, Y, Z , X, U, Z)  FROM 
PARALLGM(X,U,Z,Y) ; 
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Parallel  Line  Theorems 


(25)  Two  lines  are  parallel  if  corresponding  angles  eu:e  equal. 

PI  THEOREM  PARALLEL (L (X,Y) , L(U,V))  FROM 

EQANG(A(Y,Z,W) , A(V,W,R))  A COLIN(X,Z,Y) 

A COLIN(U,W,V)  A COLIN(S,Z,W)  A COLIN (Z ,W, R) ; 


(26)  We  must  also  include  the  case  in  which  the  cross  line 
doesn't  pass  the  parallel  lines. 

P2  THEOREM  PARALLEL (L (X, Z) , L(V,W)) 

FROM  EOANG(A(Y,Z,W) , A(V,W,S))  A COLIN(Z  W S) ; 


Z X 


(28)  A line  which  bisects  both  sides  of  a triangle  is 
parallel  to  the  base. 

MIDPAR  THEOREM  PARALLEL (L (Y, U) , L(Z,V))  FROM 
EQLINE(L(Z,Y) ,L(Y,X) ) A COLIN(Z,Y,X) 

A EQLINE(L(V,U) , L(U,X))  A COLIN (V, U, X) ; 

X 
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(28)  Two  lines  are  parallel  if  an  extension  of  one  is 


parallel  to  the  second. 

PEXT  THEOREM  PARALLEL ( L ( X , Y , L(U,V)) 

FROM  PARALLEL (L(X,Y) , L(R,V))  a COLIN (R, U, V) ; 

X ^Y 

XY  1 UV  + XY  I RV 

1 

R U V 

(29)  Two  line  segments  are  parallel  if  a contradiction  of  one 
is  parallel  to  the  second.  This  clause  is  required 
since  collinearity  implies  an  order. 

PEASE  THEOREM  PARALLEL (L(X,Y) , L(U,V)) 

FROM  PARALLEL  (L  (S,  Y)  , L(U,V))  A COLIN  (.X,S,Y)  ; 

X S Y 

1 1 l 

XY  I UV  SY  I UV  . 

U 


(30)  Two  lines  are  parallel  if  they  are  both  parallel  to  a third. 
PTRANS  THEOREM 

PARALLEL (X,Y)  FROM  PARALLEL (X, Z ) A PARALLEL (Z ,Y) ; 

Since  lines  are  often  proved  parallel  using  transitivity, 
we  don't  need  to  include  DOWN30. 

These  30  clauses  represent  the  geometric  )cnowledge  given 
to  the  outer  theorem  prover.  In  any  particular  run,  only  a 
subset  of  these  clauses  is  used. 


% 
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4.3  Coercicns 


The  inner  theorem  prover  is  given  the  following  coercions: 
Segment  equality: 

(1)  LFLIP  COER  L(X,Y),  L(Y,X); 

(2)  LSYM  COER  EQLINE(X,Y) , EQLINE(Y,X); 

Angle  equality: 

(3)  ASYM  COER  EQANG(X,Y),  EQANG(Y,X); 

(4)  Alternative  names  correspond  to  the  same  angle. 


ANAME  COER  A(X,Y,Z) , A(S,Y,R),  COLIN(X,S,Y)  A COLIN (Z ,R,Y) ; 
. X 


^ XYZ  = ,.^SYR 


(5)  ANAMEl  COER  A(X,Y,Z) , A(S,Y,Z),  COLIN (X, S ,Y) ; 

/ Z 

XYZ  = SYZ 


(6)  ANAME2  COER  A (X, Y, Z) , A(X,Y,R),  COLIN (Y, Z , R)  ; 

X 


(7)  ANGR  COER  A(X,Y,Z) , A(Z,Y,X); 

Triangle  congruence: 

(8)  CSYM  COER  CONG(X,Y,Z,U,V,W) , CONG (U,V,W, X, Y, Z) ; 
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Each  coercion  was  used  in  every  run  of  the  theorem 


r 


T 


I 

1 


I 

i 

i 

i 

i 

4 

> 


i 

I 


( 


prover.  It  is  clear  that  the  separation  of  clauses  between 
inner  and  outer  theorem  prover  was  done  in  a somewhat 
arbitrary  manner.  The  idea  was  that  facts  considered  to 
be  more  "obvious"  were  given  to  the  inner  theorem  prover. 


4.4  Coercion  Strategies 

We  use  CPROCS  to  associate  strategies  with  the 
coercions . These  were  chosen  before  any  attempts  were  made 
to  prove  any  theorems.  The  strategies  were: 


LFLIP : 

LSYM: 

ASYM: 

ANAME; 


ANAMEl : 
ANAME2: 
ANGR: 
CSYM: 


one  of  the  two  lines  had  to  be  ground  (i.e.  in  the 

line  L(x,y)  neither  x nor  y could  be  variables 

one  of  the  two  lines  had  to  be  ground 

one  of  the  two  angles  had  to  be  ground 

no  other  solutions  were  found  (i.e.  this  coercion 

could  only  be  used  if  no  unifiers 

had  been  found  either  using  previous  coercions  or 

in  the  standard  way) 

no  other  solutions  were  found 

no  other  solutions  were  found 

no  other  solutions  were  found 

no  other  solutions  were  found 


Only  one  level  of  coercion  could  be  used  inside  unification 
(MAXCOERS  = 1) . 

These  coercions  are  intended  to  "undo"  the  effects  of  canoni- 
cal ordering.  The  ordering  is  itself  done  by  partial  evaluation. 

The  ordering  scheme  is: 
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variables  < points  < logical  functions 

Variables  are  represented  by  numbers . Thus  any  two 
variables  have  an  induced  ordering.  The  BALM  IFROMID 
function  is  used  to  order  points. 

L(X,Y)  is  ordered  so  that  X < Y 
A(X,Y,Z)  is  ordered  so  that  X < Z 

The  use  of  canonical  ordering  is  the  major  factor  in  the 
effectiveness  of  this  program.  A clause  represents  the 
entire  set  of  preimages  of  the  canonical  form.  Often  this  could 
be  as  many  as  64  different  alternatives  (a  clause  mention- 
ing 6 lines).  Almost  all  resolvents  thus  become  duplicates. 

The  comijination  of  canonical  ordering  and  coercion  does  a 
huge  amount  of  tree  pruning  without  removing  completeness. 

It  is  interesting  to  note  that  we  are  using  lexical 
properties  rather  than  position  in  a model  to  order  items. 

One  of  the  uses  of  a model  in  Gelernter's  scheme  is  thus 
unnecessary  here. 

Another  "model"  property,  the  evolution  of  "self- 
evident"  truths  is  done  by  partial  evaluation.  We  may 
reject  any  clause  containing  an  instance  of  L(X,X)  or 
A(X,Y,X) , since  two  distinct  points  are  required  for  a line 
and  three  for  an  angle.  The  predicate  COLIN  is  partially 
evaluated.  We  have  a list  of  all  points  which  are  collinear 
in  the  original  problem.  COLIN  applied  to  three  points 
simply  checks  if  the  points  are  on  this  list.  Skolem  functions 
such  as  MIDPT  add  new  elements  to  this  list.  The  DIFF3 
predicate  is  also  evaluated. 


4.4.1  The  Major  Heuristics 


r 


Several  predicates  and  functions  are  used  to  compute 
heuristic  information. 

L(X,Y)  **  if  X and  Y are  variables  increase  the 
conplexity  of  a clause  by  10 
DOWN30  ♦♦  increase  the  complexity  of  a clause  by  30 
DOWN  **  if  any  of  the  arguments  of  the  predicate 
are  variables  increase  the  complexity  of 
a clause  by  30. 

The  complexity  of  a clause  is  computed  in  the  following  way. 

4.4.2  Complexity  Function 

(1)  complexity  starts  at  zero 

(2)  If  the  clause  was  produced  by  resolving  with  a special 
hypothesis  of  the  problem,  lower  the  complexity  by  50 

(3)  For  each  literal  which  is  unifiable  with  a special 
hypothesis,  lower  the  complexity  by  20; 

for  each  other  literal,  increase  the  complexity  by  10 

(4)  Add  twice  the  number  of  variables  in  each  literal  ' 

(5)  Add  20  for  each  CONG  literal 

(6)  Add  5 for  each  nonground  literal  j 

(7)  For  literals  which  have  PE's  associated  to  their  predicate  1 

don't  use  3-6;  instead  add  5 + 4 * number  of  variables  j 

(8)  Reject  clauses  with  more  than  3 PARALLEL  predicates  | 

(9)  Reject  clauses  longer  than  10  literals. 
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4.4.3  Actual  Input 

Actual  input  to  the  program  consists  of 

(1)  the  special  hypotheses  of  the  problem 

(2)  a list  of  collinear  points  as  the  value  of  the 
variable  COLINER 

(3)  a list  of  the  names  of  the  special  hypotheses 

(4)  the  initial  goal  to  be  proved. 

For  example  the  G2  problem  input  is: 

HI:  ASSERT  EQLINE (L (P, R) , L (N,M) ) ; 

H2:  ASSERT  PARALLEL (L (P ,K) , L (M,N) ) ; 
COLINER  = NIL; 

HYP  = (H1,H2) ; 

PROVE (EQLINE (L(P,M) ,L(K,N) ) ; 

A somewhat  more  elaborate  problem  is  G5: 

HI:  ASSERT  PARALLEL (L (K,C) ,L (E, D) ) ; 

H2:  ASSERT  EQLINE (L (E ,N) , L (N, C) ) ; 

H3:  EQLINE (L (K,M) , L(M,D)); 

HYP  = ' (HI  H2  H3) ; 

COLINER  = • ( ((E)(P)(K))  ( (K)  (P)  (E)  ) ( (P)  (N)  (M)  ) ( (M)  (N)  (P) ) 

; ((K)(M((D))  ((D)(M)(K))  ((E)  (B)(0))  ( (0)  (B)  (E)  ) 

((C)(M)(B))  ((B)(M)(0)  ((E)(N)(0)  ((C)(N)(E))  ); 

PROVE (EQLINE (L (E, P) , L(P,K)); 

i 


K P 


.5  Point  Constructions 


The  geometry  program  which  we  have  described  in  the 
previous  section,  lacks  a very  important  geometric  fact; 
that  any  pair  of  distinct  nonparallel  lines  intersect  in 
exactly  one  point.  Given  this  fact,  a program  could  intro- 
duce a new  point  defined  as  the  intersection  of  a pair  of 
lines.  In  this  section,  we  will  show  how  this  fact  may  be 
added  to  the  original  system. 

One  possible  way  to  incorporate  this  information 
would  be  to  use  an  axiomatic  approach.  Here,  we  would 
define  a point  predicate  and  then  add  a number  of  clauses 
specifying  how  points  and  lines  are  related.  Such  an 
approach  leads  to  very  many  new  clauses.  These  represent 
information  of  a very  different  nature  from  that  in  the 
Sections  4.1-4. 3.  For  example  to  say  that  a point  is 
either  to  the  left  or  right  of  a line  is  far  more  basic 
than  to  say  that  two  triangles  are  congruent  whenever 
corresponding  sides  are  equal.  Until  now  we  have 
represented  simple  point  ideas  such  as  ordering  or  collin- 
earity  entirely  by  partial  evaluations;  we  chose  to  encode 
this  new  fact  in  the  same  way. 

We  first  introduce  two  new  constants,  R and  I.  We  will 
write  <R,P,Q>  when  we  wish  to  represent  an  undetermined 
point  on  the  line  joining  P and  Q,  with  the  order  of  the  points 
being  P,Q,X.  P \ 


Similarly  <I,P,Q>  rfill  represent  a point  inside  the 
segment  PQ: 


is  on  this  segment 


Next  we  introduce  a six  place  logical  function 

INTER (TYPE1,TYPE2,P11,P12,P21,P22) 

This  will  represent  the  point  which  is  both  of  the  triples 


and 


<TYPE1,P11,P12> 
<TYPE2,P21,P22>  . 


If  the  lines  Pll  P12  and  P21  P22  are  parallel  then  INTER  will 


be  undefined. 

The  use  of  INTER  raises  a new  issue:  that  of  multiple 

names  for  the  same  point,  e.g.  in  the  picture: 


INTER(R,R,P,Q,R,Q)  is  also  called  Q. 


We  will  therefore  associate  a partial  evaluator  with  INTER, 
which  will  reduce  INTER  of  6 constants  to  a point  name 
when  this  is  possible.  Of  course  we  will  need  a coercion  to 
unevaluate  INTER.  This  coercion  will  allow 

INTER (R,X,P,Q,Y, Z)  to  unify  with  a point  B 
with  the  added  conditions: 


or 


X = R A COLIN(Y,Z,B) 
X - I A COLIN(Y,B,Z) 
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The  COLIN  predicate  needs  to  be  changed  as  well. 

COLIN (P,Q,X)  evaluates  to  TRUE  with  the  condition 

X = INTER(R,U,P,Q,R,W) 

COLIN (P,Q, INTER (R,U,B,E,V,W) ) evaluates  to  true  with 
the  conditions  U = R,  V = P,  W = Q,  PQ  not  parallel 
to  BE. 

The  most  pronounced  change  added  to  our  system  is  the 
need  to  detect  when  lines  are  not  parallel.  To  resolve  this 
we  will  introduce  additional  information  from  the  diagram. 

We  wish  to  point  out  that  this  is  still  nonnumeric  informa- 
tion. We  will  give  the  program  a list,  each  of  whose  elements 
will  be  a list  of  line  segments.  The  interpretation  will  be 
that  any  two  segments  which  are  on  the  same  list  "look 
parallel".  The  program  will  not  attempt  to  construct  a 
point  as  the  intersection  of  two  lines  both  of  which  are 
on  the  same  list.  Being  on  the  same  list  will  not  be 
sufficient  to  prove  parallelism.  It  will  however  be  suffi- 
cient to  prevent  constructions.  We  introduce  a new  PE 
predicate  CROSSES (X,Y, U,V)  **  XY  does  not  look  parallel  to  UV. 

Finally  we  want  to  add  two  new  clauses.  Since  the 
coercions  are  present,  these  clauses  are  not  necessary  for 
completeness,  yet  they  increase  the  efficiency.  Both  clauses 
will  state  that  a line  is  parallel  to  a subsegment  bounded 
by  a second  line. 
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PCRl  THEOREM  PARALLEL (L (X, INTER (TPl , TP2 , U,V, X, Z ) ) 


L(X,Z))  FROM  CROSSES (X,Z,U,V) ; 

PCR2  THEOREM  PARALLEL (L (X, INTER (TPl ,TP2 , X, Z , Y,V) ) , 

Z))  FROM  CROSSES (X,Z,U,V) ; 

These  clauses  state  that 
XI  is  parallel  to  XZ, 
where  I is  the  intersection 
of  UV  and  XZ. 

A sample  input  to  the  extended  geometry  program  is  the 
following: 

Given  the  problem 

K C 

P 

E D 

Special  hypotheses  KC  I ED,  EN  = NC,  KM  = MD 
Prove  EP  = PK 

Computer  Input: 

HI  ASSERT  PARALLEL(L(K,C) ,L(E,D) ) ; 

H2  ASSERT  EQLINE(L(E,N) ,L(N,C) ) ; 

H3  ASSERT  EQLINE(L(K,M) ,L(M,D) ) ; 

[continued] 
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* list  of  names  of  special  hypotheses 
HYP  = = (HI  H2  H3); 

* list  of  collinear  points 

COLINER  = (((E)(P)(K))  ((K)(P)(E)) 

((P)(N)(M))  ((M)(N)(P)) 

dK)(M)(D))  ((D)(M)(K)) 

((E)  (N)  (O)  ((C)  (N)  (E))  ); 

* list  of  lines  which  look  parallel 
LOOKSP  = ' ( ( (K  C)  (N  M)  (P  M)  (E  D)  ) ) ; 

* list  of  alternative  names 

PNAMES  = ' ( ( (R  R K P D E)  E) 

( (R  R C N D E)  E) 

( (I  R E K M N)  P) 

((I  I E C P M)  N) 

( (R  R E D K M)  D)  ) ; 

* finally  the  prove  statement 
PROVE (EQLINE(L(E,  P) , L(P,K)); 

The  next  chapter  contains  the  results  of  running  both 


the  original  and  the  extended  geometry  program  on  a number 
of  simple  problems. 


CHAPTER  5 

EXPERIMENTAL  RESULTS 

In  order  to  test  the  effectiveness  of  the  progreuns 
described  in  Chapter  4 , we  performed  a number  of  experiments . 

We  chose  six  different  geometric  problems,  and  did  a number 
of  variations  of  each.  In  this  chapter,  each  of  these 
experiments  is  analyzed  in  detail.  For  each  problem  we 
will  give  a picture,  and  a list  of  axioms.  We  will  show 
the  refutation  tree  and  indicate  where  the  coercion  scheme 
eliminated  resolutions. 

The  six  geometric  problems  which  we  named 
GO , G1 , G2 , G3 , G4 , G5  have  all  been  proved 
previously  by  machine. 

GO,  the  simplest  of  the  problems,  was  introduced  by 
Ira  Goldstein  [13].  Problems  G1  through  G5  are  due  to  Gelernter 
[10,11].  Examples  GO  through  G4  were  run  with  the  basic 
system.  Variations  of  G5  were  run  with  both  the  basic  and 
extended  system. 


5.1  The  GO  Problem  (Problem  32,  June  1969,  N.Y.  State  Regents) 

Given  segment  MPQN  with  MP  = QN  and  angle  KPQ  = angle  KQP 
prove  that  segment  MK  = segment  KN. 


To  specify  the  input  to  this  problem,  we  must  first 


indicate  which  clauses  and  coercions  were  used. 


Coercions : 


ANGR 

ANAMEl 

ANAM2 

CSYM 

LSYM 

ASYM 

FLIP 


alternative  ncimes  of  angles  are  equivalent 


CONG,  EQLINE,  EQANG  are  symmetric  relations 


the  line  XY  is  equivalent  to  the  line  YX 


Clauses : 


AST 

APART 

ATRANS 

AREFLX 

LISOC 

LCONG 

CSAS 


two  angles  are  equal  if  both  are  straight 
parts  of  equal  angles  are  equal 

angle  equality  is  transitive  and  reflexive 


sides  of  isosceles  triangles  are  equal 


corresponding  sides  of  congruent 
congruence  by  side,  angle,  side. 


triangles  are 
equal 


Input ; 

HI  ASSERT  EQANG(A(K,P,Q) , A(P,Q,K)); 

H2  ASSERT  EQLINE (L(P,M) , L(N,Q)); 

HYP  = ' (HI  H2) ; 

COLINER  = '(((M) (P) (Q))  ( (P) (Q) (N) ) ( (M) (P) (Q) (N) ) 

((Q)(P)(M))  ((N)(Q)(P))  ((N)  (Q)  (P)  (M)  ) ); 

PROVE  (EQLINE(L(K,M) , L(K,N))); 


Total  input:  8 coercions,  9 clauses. 

The  proof  required  a total  of  44.7  seconds,  during 
which  time  35  resolvents  were  generated.  Figure  4 shows 
the  search  tree.  12  clauses  were  selected  for  resolution.  Each 
node  is  a clause  number.  The  dark  line  indicates  the  proof  path. 
The  proof  requires  8 out  of  the  12  selected  clauses.  While  a 
great  deal  of  the  selectivity  is  due  to  the  limited 
number  of  clauses,  the  accuracy  is  quite  surprising. 

Figure  ^ shows  the  refutation  tree . The  proof  corresponds 
to  some  23  resolutions  in  a standard  resolution  prover. 
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KM  f KN 


KM  = KN  V ncONG(MPKNQK)  V IDIFF(KMP)  V "IDIFF(KNQ) 


DIFF(KMP)  DIFF(KNQ) 


CONG(MPKNQK)  V MP?«NQ  V MPK=NQK  V PKf^QK 

^ 1 I 


PK=QK  V PK?<KQ  V KQjP^QK  ’ 

V-  1 I ) 


MPK=NQK  V KPM?<NQK  V MPK?<KPM 


KQ=QK  / 


MPK=KPM 


PK=KQ  V KPQ?<PQK 


KPQ=PQK 


KPM=NQK  V KPM?^KQN  V NQK?<KQN 


i \ 


NQK=KQN 


KPM=KQN  V KPQj^KQP  v QPM?<PQN 


I KPQ=KQP  V KQP?<PQK  V KQP?<PQK 


! KQP=PQK 

I MP=NQ  V PM?<NQ  V PMj^MP  ^ 


PM=MP 


PM=NQ 


_ KQP=PQK  y 


QPM=PQN  V QPM?^STANG  V PQN^^STANG 


QPM=STANG  V ncOLIN  QPM 


COLIN  QPM  I 


Figure  5.  Pefutation 

Graph  of  GO; 
23  Links. 


PQN=STANG  V ICOLIN  PQN 


COLIN  PQN 
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The  critical  factor  in  this  run  of  GO  is  that  there 
are  few  unnecessary  input  clauses.  To  test  the  robustness 
of  the  system  we  ran  the  following  variations. 

GO.l 

All  the  8 coercions  and  9 clauses  of  GO 
plus  the  clauses 

AVT  vertical  angles  are  equal 
LREF  **  line  reflexivity 

GO.  2 

All  8 coercions  and  11  clauses  of  GO.l 
plus  the  clauses 

ALTER  ^ alternate  interior  angles  of  parallel  lines  are 

equal 

CSAA  congruence  via  side,  angle,  angle 


The  resultant  timings  to  find  the  proof  were : 


GO 

44.7 

seconds 

35 

clauses 

generated 

GO.l 

45.6 

seconds 

35 

clauses 

generated 

GO.  2 

52.3 

seconds 

40 

clauses 

generated 

Each  of  the  three  runs  produced  the  same  'proof. 


5.2  The  G1  Problem  (Gelernter,  Problem  1) 

Given  that  angle  KPN  = angle  NPM,  and  that 
angles  PKN  and  PMN  are  both  right  angles, 
prove  that  segment  KN  = segment  NM. 


K 


Input  to  the  theorem  prover  consisted  of  the  8 coercions  used 
for  GO  plus  the  following  clauses: 


AST 

Straight  angles  are  equal 

1 

APART 

parts  of  equal  angles  are  equal 

1 

! 

ATRANS 

angle  equality  is  transtivie  and 

reflexive 

* 

AREFLEX 

LREF 

line  equality  is  reflexive 

LISOC 

sides  of  an  isosceles  triangle  are  equal 

LCONG 

corresponding  sides  of  congruent 

triangles  are 

equal 

1 

CSAA 

congruence  by  side,  angle,  angle 

1 

CSAS 

congruence  by  side,  angle,  side. 

Only  LCONG,  CSAA,  LREF  are  used  in  the  proof. 
The  special  input  for  G1  was: 


HI 

ASSERT 

EQANG(A(K,P,N) , A(N,P,M)); 

*> 

H2 

ASSERT 

EQANG(A(P,K,N) , RTANG) ; 

i 

H3 

ASSERT 

EQANG (A ( P , M , N) , RTANG) ; 

HYP  = ' (HI  H2  H3)  ; 

COLINER  = NIL; 

PROVE (EQLINE (L (K,N) , L(N,M)); 


Gelernter's  system  took  approximately  25  seconds  to  produce 
a 10  step  proof  which  is  equivalent  to  the  resolution  proof. 
The  seven  step  coercion  proof  required  some  86.5  seconds 
selecting  12  clauses  and  producing  58  resolvents. 

Gelernter's  program  was  run  on  a 7090  while  the  Dilemma  system 
runs  on  the  considerably  faster  CDC  6600.  At  the  top  level  the 
proof  consisted  of: 


EQLINE(L(K,N) , L(N,M)) 

\^-LCONG 

(5)  1CONG(NXK  NYM)  V “IDIFF(K  N X)  V ~1DIFF(M  N Y) 
\^CSAA 

(8)  1EQLINE(L(NX) , L(NY))  V 1EQANG (A (KXN) , A (NYM) ) 

V 1EQANG{A(XKN) , A(YMN))  V IDIFF(KNX) 

V “IDIFF(MNY) 


LREF 

(35)  1EQANG(A(KXN)  , A(NXM))  V "lEQANG  (A  (XKN)  , 
V IDIFF(KNX)  V IDIFF(MNX) 

(46)  1EQANG(A(PKN) , A(PMN)) 

ATRANS 

(52)  1EQANG(A(PKN)  ,X)  V “lEQANG  (X,  A (PMN)  ) 

\ H2 


A(XMN) ) 


(53)  lEQANG { RTANG , A (PMN) ) 


\ 

(58)  □ 


H3 
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5.3  The  G2  Problem  (Gelernter,  Problem  2) 


Given  the  quadrilateral  PKNM  with  segment  PK  equal 
to  segment  NM  and  PK  parallel  to  NM,  prove  segment  PM 
= segment  KN. 


P K 


Inputs : the  8 coercions  used  in  GO  and  G1  plus 


ALTERl 

AST 

APART 

ATRANS 

AREF 

LREF 

LISOC 

LCONG 

CSAA 

CSAS 


alternate  interior  angles  of  parallel  lines  are 

equal 

all  straight  angles  are  angle 
parts  of  equal  angles  are  equal 
angle  equality  is  transitive  and 
reflexive 

line  equality  is  reflexive 

sides  of  an  isosceles  triangle  are  equal 

corresponding  sides  of  congruent  triangles  are 

equal 

congruence  by  side,  angle,  angle 
congruence  by  side,  angle,  side 


HI  ASSERT  EQLINE(L(P,K) , L(M,N)); 

H2  ASSERT  PARALL  (L(P,K),  L(M,N)); 

PROVE (EQLINE (L (P,M) , L(K,N)); 

The  search  for  a proof  selected  6 
clauses,  which  produced 20  resolvents.  The  proof  is  19 
levels  deep  for  resolution  and  6 levels  for  coercion.  The 
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coercion  system  found  the  proof  in  10.2  seconds.  This 
problem  is  by  far  the  easiest  of  all  the  geometry  examples. 

It  is  interesting  to  see  the  difference  in  performance 
between  our  system  and  Gelernter's  on  this  problem.  Since 
Gelernter's  system  did  not  have  Skolem  functions,  each  line 
segment  had  to  be  a named  constant.  The  segment  PN  (the 
diagonal  line)  was  not  given  to  either  program.  Gelernter's 
program  after  about  a minute  gave  up  on  this  problem, 
went  into  its  construction  phase,  added  PN,  and  then  after 
another  4 minutes  produced  the  proof.  Our  program  used  the 
MK  diagonal.  Constructions  such  as  PN  are  done  automatically 
in  our  system,  as  the  result  of  Skolem  functions. 

Another  obsei'vation  is  that  at  one  point  our  problem 
resolves  MK  ^ KM  with  X = X via  the  coercion  MK  = KM. 

This  is  redundant,  the  subtree  shows  that  we  could  just  as 
well  resolve  the  literal  away  with  a unary  resolvent. 

Figure  6 gives  the  search  tree;  Figure  7 the  refutation 
tree  for  G2 . 


Nodes  with  an  X below  were  deleted 
as  duplicated,  too  complex,  or 
by  PES. 


Figure  6.  Search  Tree  for  G2  Problem. 


Figure  7.  Refutation  Graph  of  G2 

19  resolutions  vs.  6 coercions.  Sections  in  broken  lines  are 
done  by  the  inner  theorem  prover. 


PMj-'KN 


PM=KN  V PM?^NK  V KN?<NK 

i I 

KN=NK 


PM=NK  V “1C0^1G(MNP  KPN)  V nDIFF(PMN)  V “IDIFF(NKP) 

I I 

DIFF(PMN)  DIFF(NKP) 


CONG  (MNP  KPN)  V MK^^KM  v MKP?^KI<1N  V KP?^MN 


J 


' MK=KM  V MKt^MK  V MK?^KM 

MK=MK  ^ MK=KM  / / 


KP=MN 


/mKP=KMN  V PKM?^KMN  V MKP^^PKM^ 

' I I ' 

MKP=PKM  i 


\ 


PKM=KMN  V PKMf^NMK  V KMNji^NMK 


KMN-=NMK 


PKM=NMK  V KF  I'  NM 


/ 

/ 


KP  I NM  V PK  Ar  NM  V PK?^KP  \ 


PK=KP 


PK  I NM  V PK  I'  MN  V MNji^NM  | 

' ~ ~ - j-  I / 

I " MN=NM  ' 

PK  I MN  — ^ 
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5 . 4 The  G3  Problem 


Given  the  following  figure,  with  KM  = MB,  and  angles 
PNK  and  MQB  both  equal  to  90  degrees,  prove  that  KN  = BQ. 


K Q 

Inputs;  the  8 basic  coercions  and  10  clauses  of  G2  as  well  as: 
VERTICAL  vertical  angles  are  equal 

RTEQ  two  right  angles  form  a straight  angle 


HI  ASSERT  EQLINE(L(K,M) , L(M,B)); 

H2  ASSERT  EQANG(A(P,N,K) , RTANG) ; 

H3  ASSERT  EQANG(A(M,Q,B) , RTANG); 

COLINER  ='{( (P) (N) (M) ) ( (N) (M) (Q) ) ( (K) (M) (B) ) 

((M)(N)(P))  ((Q)(M)(N))  ((B)(M)(K))  ); 

PROVE (L (K,N) , L(B,Q)) 


Gelernter  ran  this  problem  twice;  first  on  his  original 
system  which  produced  a somewhat  redundant  proof  after  8 min- 
utes and  then  on  an  extended  system  which  produced  a proof 
after  1 minute.  The  extensions  consisted  of  two  heuristics. 
The  first  allowed  goals  to  be  expanded  out  of  order. 
Identities,  equalities  between  angles,  and  various  other  goals 
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could  usually  be  satisfied  in  one  step.  Gelernter's  heuristic 
gave  preference  to  such  goals.  The  second  heuristic  was  a 
complexity  measure . 

Our  system  solved  this  problem  in  4 . 5 minutes . It  found 
an  8 level  coercion  which  corresponds  to  a 20  level  resolution 
proof.  A total  of  144  resolvents  were  generated  from  34  selected 
clauses.  The  complexity  function  did  rather  poorly  here. 

For  comparison  we  give  the  complexity  value  for  each  resolvent 
in  the  proofs  for  Gl , G2,  and  G3. 


Gl 

Clause 
Value  1 

G2 

Clause 
Value  1 

G3 

Clause 

Value 

5 

+75 

4 

+75 

4 

+75 

8 

+66 

6 

+66 

24 

+66 

35 

+46 

7 

+14 

51 

6 

46 

-17 

16 

-38 

65 

+33 

52 

+47 

19 

-69 

67 

+77 

53 

-69 

20 

— 00 

140 

-13 

58 

— 00 

141 

-58 

144 

« 00 

This  table  shows  that  the  complexity  measure  did  badly  in  G3 
on  clauses  65  and  67  which  accounts  for  the  large  cimount 
of  time  necessary  to  find  the  proof.  Clause  67  consists  of; 

“I  (angle  (K  N M)  = X v X = angle  (M  Q B) ) 

This  clause  was  produced  by  an  application  of  angle  transitivity 
which  is  given  a penalty  each  time  it  is  used. 


5 . 5 The  G4  Problem 


Gelernter  introduced  additional  extensions  to  his 
program  in  1960.  The  first  of  these  extensions  allowed 
that  any  two  names  for  an  angle  could  be  recognized  as  equal 
solely  by  using  the  diagram.  The  second  extension  was  the 
point  generator  which  has  been  described  above,  losing  these 
extensions,  Gelernter 's  system  solved  the  G4  and  G5  problems, 
requiring  1 minute  on  G4  and  31  minutes  on  G5. 


Inputs:  the  8 coercions  and  12  clauses  of  G3  plus 

PSYM  COER  PARALLEL (X,Y) , PARALLEL (Y, X) ; 

PARTRANS  parallelism  is  transitive 

MIDPAR  the  line  which  bisects  the  sides  of 

a triangle  is  parallel  to  the  base. 
HI  ASSERT  EQLINE(L(E,P) , L(P,K)); 

H2  ASSERT  EQLINE (L (E ,N) , L(N,M)); 

H3  ASSERT  EQLINE (L (C,Q) , L(M,C)); 

H4  ASSERT  EQLINE (L (K , D) , L(0,Q)); 

KYP  » ' (HI  H2  H3  H4)  ; 
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COLINER  = '(  ((E)(P)(K))  { (K) (P) (E) ) 

((E)(N)(M))  ((M)(N)(E)) 

((M)(C)(Q))  ((Q)(C)(M)) 

((K)  (D)  (Q))  ((Q)  (D)  (K))  ); 

PROVE (PARALLEL (L (N,C) , L(P,D)); 

The  proof  found  was  7 coercions  long,  and  corresponded  to  a 
20  level  resolution  proof.  A total  of  331  resolvents 
were  produced  from  32  selected  clauses . Total  time  was 

25.7  seconds. 


r 


5.6  The  G5  Problem 


Given;  EN  = NC,  KM  = MD,  KC  I ED 
Prove:  EP  = PK 

The  G5  problem  occurs  in  two  variations.  In  the  first 
(G5.0)  we  specify  the  point  B as  collinear  to  ED  and  that 
BM  = MC.  In  the  second  version  (G5.1)  we  give  no  information 
about  B. 

G5.0  was  solved  with  the  following  inputs: 

8 coercions  as  before, 

4 special  hypotheses  and  10  additional  clauses: 

PEND  a line  is  parallel  to  a subsection 

PBASE  a line  is  parallel  to  another  if  the  other 

is  parallel  to  a subsection 
PEXT  a line  is  parallel  to  its  extensions 

PARTRANS  parallelism  is  transitive 
MIDPAR,  ALTERl,  VERTICAL,  LCONG,  LPARBASE,  CSAA. 

The  proof  required  8 coercions  or  11  resolutions  and  was  found 


in  153  seconds.  The  search  reached  100  clauses  in  size. 

The  G5.1  problem  has  only  been  solved  by  Gelernter's 


The  G5.1  problem  required  677  seconds  using  the  extended 


system.  571  resolvents  were 

produced 

. Figure  8 gives  the 

final  proof  tree.  The  proof 

used  16 

coercions,  or  27  resolu- 

1 

tions,  and  88 

clauses  were 

selected. 

EP=PK 

0 

LPARBASE 

LCONG  ' 

i 

H3 

CASA  i 

@ 

PARTRANS 

(50 

H3 

H4 

ALTER2 

PARTRANS  ^ 

PARI NT 

MIDPAR  / 

(lea 

HI 

H2  / 

VERTICAL 

PCRl 

Figure  8.  Proof  of  G5.1 

Our  results  are  summarized  in  Table  III. 


CHAPTER  6 


CONCLUSIONS 


6 . 1 Formalistic  Methods 

In  Chapter  1,  we  argued  that  there  were  two  basic 
approaches  to  AI  — the  formalistic  and  the  intuitive. 

Perhaps  the  most  basic  implication  of  our  research  is  that 
formalistic  methods  may  offer  a reasonable  alternative  to 
intuitive  schemes.  While  we  do  not  claim  that  formalistic 
methods  are  equal  in  efficiency  to  intuitive  ones,  our  results 
show  that  they  are  not  so  slow  as  to  preclude  their  use. 
In  fact,  the  added  clarity  of  a formalistic  system  may 
make  it  more  useful.  We  have  given  a uniform  proof  procedure 
and  shown  that  it  may  be  applied  to  group  theory,  logical 
puzzles,  and  geometry.  We  believe  that  any  intuitive  program 
which  could  solve  problems  in  each  of  these  diverse  areas 
would  be  very  awkward. 


6.2  Hierarchical  Theorem  Proving 

The  figures  in  Chapter  2 show  that  on  a limited  set 
of  theorems,  hierarchical  theorem  proving  is  more  effective  than 
resolution.  The  basic  notion  of  replacing  the  requirement  of 
identity  with  proofs  of  equivalence  inside  unification  is  widely 
applicable.  While  we  have  only  used  it  in  Horn  clause  resolution, 
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Theorem  5 shows  that  it  could  be  used  in  any  Herbrand  type 
proof  procedure.  For  example  hierarchical  notions  could  be 
applied  in  linked  conjuncts,  model  elimination,  and  all  the 
other  unification  based  schemes. 

The  coercion  mechanism  may  not  be  the  best  way  to 
implement  Theorem  5.  We  expect  that  difference  operations  i 

as  used  in  GPS  could  be  significantly  more  effective.  j 

Or  one  could  allow  an  inner  theorem  prover,  which  contained  | 

j 

an  algebraic  simplifier.  Certainly  the  notion  of  an  inner  I 

i 

theorem  prover  could  be  extended  to  include  additional,  1 

j 

even  more  internal,  theorem  provers.  j 


6.3  Partial  Evaluation  and  Heuristics 


The  geometry  program  shows  that  partial  evaluation  is 
a useful  adjunct  in  a theorem  prover.  The  use  of  partial 
evaluation  changed  a large  number  of  distinct  clauses  into 
the  same  canonical  form.  It  is  doubtful  if  the  geometry 
proofs  could  have  been  achieved  without  such  pruning.  At  the 
same  time,  we  saw  that  it  was  necessary  to  unevaluate  expres- 
sions. The  hierarchical  method  allowed  just  the  sort  of 
unevaluation  which  was  needed.  We  believe  that  the  use  of 
coercion  suggests  a reasonable  way  out  of  the  difficulties 
encountered  in  QA3  and  other  partial  evaluation  systems.  Also, 
the  use  of  predicates  to  set  heuristic  switches  was 
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very  useful.  Such  a way  of  adding  heuristics  to  a 

uniform  proof  procedure  is  natural.  The  claim 
that  uniform  procedures  cannot  make  use  of  domain  dependent 
information  is  false. 


6.4  The  Geometry  Program 

Finally  we  come  to  the  most  immediate  conclusion  of 
this  research:  that  it  is  possible  to  use  a resolution  type 

theorem  prover  to  solve  problems  in  elementary  geometry. 

When  we  began  this  work,  such  a result  would  have  been 
considered  unlikely.  Many  AI  workers  seem  to  believe 
that  formal  theorem  provers  are  unsuitable  for  such  problems 


6.5  Future  Possibilities 


The  completeness  theorem  given  in  Chapter  2 
states  that  two  level  theorem  proving  may  be  used  with  any 
set  of  clauses  which  has  a refutation  tree.  The  Dilemma 
language  allows  only  clauses  which  are  in  Horn  form.  Horn 
sets  are  a proper  subset  of  the  clauses  with  a refutation  tree, 
as  shown  by  the  following  example. 


S = 


f P(a,x)  V P(b,x)  V ~IP(c,x)  V ~ip(d,x) 
nP(a,x) 
nP(b,x) 

P(c,x) 

[ P(d,x) 
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This  set  is  unsatisfiable,  has  a refutation  tree,  and 


cannot  be  renamed  into  Horn  clause  form.  We  will  now 
describe  a splitting  algorithm  (Chang  [ 5 ]),  which  will 
change  an  arbitrary  set  of  clauses  into  several  sets  of 
Horn  clauses.  We  will  then  use  S to  give  an  example  of  the 
use  of  this  technique. 

Chang's  Algorithm: 

Let  R=Rj^uavB  be  a set  of  clauses. 

(1)  Prove  that  Rj^  u A is  unsatisfiable. 

If  there  were  n distinct  occurrences  of  instances 

of  A in  the  refutation  let  a,  ...  be  mgus  such 
that  the  ith  instance  of  A is  Aa^. 

(2)  R is  unsatisfiable  if 

R,  u Ba,  t)  Ba-  . . . O B0  is  unsatisfiable. 
112  n 

In  the  example,  let  A = P(a,x) 

B = P(b,x)  V ~IP(c,x)  V 1P(d,x) 

R^=  S - A V B 

Step  1 consists  of 
P (a,x) 

-P(a,x)  P(c,x) 

-P(b,x)  P(d,x) 


which  allows  only  one  resolution,  uses  only  one  instance  of 


Vhis  is  a standard  Horn  clause  problem  and  is  easily  solved. 

This  algorithm  could  be  implemented  by  writing  a 
program  which  does  the  splitting  and  then  calls  our  system 
in  order  to  solve  each  subproblem.  A new  level  of  hierarchical 
structure  could  be  provided  by  modifying  our  system  to  produce 
the  refutations  of  subproblems  simultaneously. 

Dilemma  itself  could  be  extended  in  several  ways.  First, 
we  could  add  a sense  of  time.  Mathematical  systems  are 

static;  once  proved,  a theorem  stays  true.  In  many  situations, 
however,  the  truth  of  a statement  changes  over  time.  For 
example,  to  a robot  a set  of  theorems  could  indicate  where 
things  are  in  the  current  environment.  As  objects  are  moved, 
these  theorems  would  change.  We  believe  that  a dynamic 
component  could  be  added  to  Dilemma  in  a way  that  would  m.ake 
it  possible  to  treat  robot  control  problems  conveniently.  Another 
extension  would  be  to  add  other  special  inner  theorem  provers. 
While  the  coercion  mechanism  works  well  for  the  equality  rela- 
tion, other  relations  such  as  partial  ordering  or  set  equality 
could  be  added.  An  open  question  is  whether  U-g  -resolution  can 
be  extended  in  efficient  ways  to  build  in  such  relations. 

We  expect  that  additional  information  about  problem  solving 
would  be  found  by  writing  other  programs  in  Dilemma.  For 
example,  a program  which  does  symbolic  integration.  Here  a 
whole  new  class  of  heuristics  would  be  necessary.  Possibly 
an  inner  theorem  prover  which  knows  about  algebraic  simplifica- 
tion would  be  required.  Finally  we  could  build  special  hardware. 


The  Dilemma  language  is  highly  parallel.  Perhaps  a large  number 
of  micro  processors,  each  computing  a generalized  resolution, 
would  lead  to  a very  fast  Dilemma  machine. 

Considering  the  theorems  of  Chapter  2,  we  see  that  there 
are  a number  of  unresolved  theoretical  issues.  What  happens 
to  completeness  when  the  refutation  graph  contains  cycles? 

Since  these  cycles  arise  from  merges,  can  we  restrict  how 
merges  occur,  for  example,  to  merges  on  only  certain  predicate 
symbols?  We  have  shown  that  the  sets  of  clauses  which 

are  characterized  by  input  proofs,  unit  proofs,  or  refutation 
trees  are  the  same.  These  are  the  easy  problems  for  a 
number  of  algorithms.  Can  we  generalize  this  to  a 

complexity  measure,  i.e.  an  unsatisf iable  set  of  clauses 
is  of  complexity  M if  the  minimum  number  of  merges  (i.e. 
cycles  in  a refutation  graph)  is  M?  (see  Kowalski  [23]). 

Finally,  as  we  pointed  out  in  Chapter  1,  our  work  is 
one  more  step  in  the  direction  started  by  McCarthy  toward 
building  programs  which  would  learn.  We  hope  that  the 
Dilenona  language  and  our  ideas  of  hierarchical  theorem  proving 
may  contribute  to  the  design  of  an  underlying  representation 
of  information  by  a machine.  The  larger,  more  global,  question 
raised  by  our  work  is  how  a machine  which  is  given  some 
instruction  can  transform  that  instruction  into  optimal 
Dilemma  procedures. 


APPENDIX  I 


IMPLEMENTATION  DETAILS  AND  LISTING  OF  THE  COMPILER 


The  implementation  is  divided  into  four  sections: 
basic  utilities,  input  parser,  unification,  post  unification. 

Basic  Utilities 


APPEND ( LI, L2) 


append  LIST  L2  to  LIST  LI 


Ll  is  changed.  Result  is  in  the  new  LI. 


RENAME (LI, I) 


Ll  is  a list  of  literals.  I is  a number. 


All  variables  of  Ll  are  renamed.  The  left- 
most variable  gets  the  name  I+l. 


NAMELIT(lit) 


does  the  renaming.  A loop  in  RENAME  calls 


this  procedure. 

LOOKUP (item, list)  list  is  a list  of  pairs  ( (x,y) (z,v) ) . 

If  item  is  equal  to  the  head  of  a sublist, 
the  value  of  lookup  is  the  tail.  Bindings  are 


SLB1(C,B) 


MAKNAME(ci) 


just  such  lists. 

Apply  binding  list  B to  clause  C. 

Change  the  clause  in  place. 

Change  the  variables  in  a clause  to  Z1,Z2, . . .Z12. 


DELETE (item, list)  Delete  11  copies  of  item  from  list. 

Change  list. 


MAPR(list,proc) 


Like  map  x but  constructs  the  new  list  (in  place) 


PRINTHIST {cl) 


cl  clause  vector.  Print  history  of  the 


COPX 


deduction  of  c£. 

A high  speed  version  of  the  BALM  copy. 


SUBINPLA (lit,B)  Apply  binding  list  B to  literal  lit. 
SUBER (lit, item, replace)  Change  item  to  replace  in  literal, 
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Partial  evaluation  works  inside  out  (it  is  the  LISP  EVAL 
function) . Some  tricks  are  done  with  the  variables  DEPTH  and 
MERIT.  They  look  like  global  variables  (but  are  actually  copies) . 

CLEARSYS  drops  the  BALM  system  (it  gets  about  7K  additional  space) 

RTM  is  the  run  time  monitor;  the  details  of  built-in 

equality  are  here. 

Input  Parser 

Mostly  input  is  a set  of  macro  transformations.  REMCO 
(remove  comma)  changes  BALM  tree  structures  into  Dilemma  objects. 

Unification 

A unifier  is  a pair  (B,L) ; B = binding  list, 

L = additional  literals  (added  via  coercions) 

PUSHUNIT  is  used  to  combine  two  unifiers 

MGUl  applies  a coercion 

COPYPAIR  returns  the  pair  of  equal  or  equivalent  items  associ- 
ated with  a coercion  (it  only  does  a copy  if  the 
coercion  passes  the  possible  test) . 

Post  Unification 

If  completions  are  present,  clauses  retain  the  resolved 
literals . 

((Pi)  (Q  1 2 ) ) resolves  with  (P  (a)) 

to  give 

((MARK  (P  (a))  (Q(a)  2)) 

MARK  is  a one  argument  "predicate"  taking  the  old  predicate  as  its 
argument.  (Many  places  in  the  code  attempt  to  bypass  marked  liter- 
als.) If  a marked  literal  is  either  at  the  left  of  a clause  or  next 
to  another  marked  literal,  its  completion  is  executed  and  the 
literal  deleted. 
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♦ 1 

♦ 2 

♦♦  DILEMMA  MASTER  LISTING  3 

♦ A 


♦*  system  macros  debugging  tools  and  related  odds  and  ends 

** 

**  IE  DEBUG  IS  TRUE  wE  PRINT  WHENEVER  A DETAIL  STATtMENT  IS  PRESENT 
OETAIL(XI)  MEANS  IF  DEBUG  THEN  PRINT ( -Xl» XI ) } 

SETPROP(Xl»X2»  X3)  MEANS  SETPROPYl X2» Xl» X3  ) 5 
SUBCOPY(Xl»X2)  MEANS  SUB  1 NPL A ( C QP Y ( XI ) # X2); 

•X1-X2  MEANS  BREAKUP! 'Xl» X2)  ; 

ATOM(Xl)  MEANS  -PAIRC(Xl); 

FALSE  < NIL; 

** 

**  MACROS  TO  GET  PARTS  OF  CLAUSES  AND  LITERALS 

** 

*♦  EACH  CLAUSE  IS  REPRESENTED  BY  A 6 ELEMENT  ARRAY 

♦*  1 CLAUSE  ID  » *OXX  FOR  GENERATED  NAMES  (INPUT  CLAUSES  ) VIA  A PROVE 
*♦  numbers  FOR  RESOLVENTS 

♦♦  2 PTR  TO  NEG  PARENT 
♦♦  3 PTR  TO  LITERALS 
♦♦  A LENGTH  IN  LITERALS 

♦♦  ONLY  NEGATIVE  ATOMS  ARE  COUNTED 

♦♦  5 MIXED  OR  POSITIVE  PARENT 

6 EXTRA  BINDINGS 

7 DEPTH  OF  CLAUSE  (0  IS  AN  INPUT  CLAUSE) 

*♦  8 MERIT  OF  CLAUSE 

** 

NAMECF(Xl)  MEANS  XlCll  ; 

PREDSYM(Xl)  MEANS  HO  XI; 

ARGLIST(Xl)  MEANS  TL  XI; 

FNSYM(Xl)  MEANS  PREOSYM(Xl); 

INPUTCL(Xl)  MEANS  lOQ(XUn); 

NEGPAR(Xl)  MEANS  X1I2]; 

LITLIST(Xl)  MEANS  X1C31; 

CLENGTH(Xl)  MEANS  XICA]; 

MIXECPAR(Xl)  MEANS  X1C51; 

BINDINGS(XI)  means  X1C6]; 

DEPTHVAL(Xl)  MEANS  XIC71; 

MERITVAL(Xl)  MEANS  XUBJ; 

** 

♦♦  GENERAL  UTILITY  PROGRAMS 

♦♦  COPIES  OF  BALM  UTILITIES  WITH  CHANGES 

** 

**  APPEND  IS  USED  TO  PUT  ONE  LIST  ON  THE  BACK  OF  A SECOND 
♦*  APPEND  WILL  CHANGE  ITS  FIRST  ARGUMENT 
APPEND*  PR0C(LIST1»LIST2)» 

BE6IN(B)» 

IF  -LISTl  THFN  RETURN  LIST2» 

IF  -•LIST2  THEM  RETURN  LISTI# 

B-  LISTI,  UHILE  TL  LlSTl  REPEAT  LISTI*  TL  LISTI, 

TL  LISTI*  LIST2,  RETURN  8 


6 

7 

8 
V 

10 

11 

12 

13 

lA 

15 

Ifc 

17 

18 
19 


20 

21 

22 

23 

2A 

25 

26 
27 
2b 

29 

30 

31 

32 

33 
3A 

35 

36 


39 

AO 

A1 

A2 

A3 

AA 

A5 

A6 


A7 

AS 

A9 

50 

51 

52 

53 
5A 
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END 

END;  ^6 

RENAf^E-  PROC(CL»IO)»  57 

BE6IN(NEhNAMES)>  56 

NEWNAMES-NU^RETURN  MAPX(CL»  59 

NAMELIT)  60 

END  61 

END)  62 

♦ NAMELIT  REt^AIES  THE  VARIABLES  IN  A LITERAL  TQ  NUMBERS  THE  LEFT  MOST  63 

♦ VARIABLE  GETS  THE  VALUE  OF  ID  » ID  GETS  CHANGED  6A 

NAMELIT-  PROC(LIT)»  65 

BE6IN(S)>  66 

IF  ATDM(LIT)  THEN  DO  67 

IF  -•(S«LOOKUP(LIT/NEwNAMES)  ) THEN  NENNAMES-  ( LI  Ti  ( S-ID-ID  + i 66 

)):NEWNAMES»  69 

RETURN  S 70 

END  * TL  L1T>  MAPXITL  LIT#NAMFLIT)  /RETURN  LIT  71 

END  72 

END;  73 

LOOKUP*  PROC(ITEM,LIST)»  7A 

BE6INO/  75 

WHILE  LIST  REPEAT  DO  76 

IF  EOUALIHO  HO  LIST,  ITEM)  THEN  RETURN  TL  HO  LIST,  LIST*  TL  77 

LIST  76 

END,  79 

RETURN  NIL  60 

END  B1 

END)  62 

SU81-  PR0C(X,9),  63 

BE6IN(Y),  8A 

♦♦  APPLY  BINDING  LIST  8 TQ  X 85 

IF  -PAIRO(X)  THEN  RETURN  SUblNPLAIX,  B>,  86 

Y-X,  87 

WHILE  X REPEAT  DO  86 

HD  X • SUBINPLA(H0  X , 6),  X*  TL  X 89 

END,  90 

RETURN  Y 91 

END  92 

END;  93 

MAKNAME*  PROC(CL),  9A 

BEGINC  NAMES, XVARS),  96 

NAMES*NIL, XVARS*ZVARIABL,CL  96 

*MAPX(CL, NAMED  97 

END  96 

END)  99 

DELETE*  PROC(ITEM,LIST),  100 

BE6IN(8,E),  101 

8-NlLlLIST,  102 

LIST*  8,  103 

WHILE  TL  LIST  REPEAT  DO  lOA 

IF  EQUALdTEM,  HO  TL  LIST)  THEN  TL  LIST*  TL  TL  LIST  ELSE  105 

LIST  - TL  LIST  106 

END,  RETURN  TL  B 107 

END  106 
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END;  109 

NAPR-  PR0C( ALIST#PR0)>  110 

BEGINIU*  111 

L-  ALISTf  WHILE  L REPEAT  DO  112 

HD  L-  PRO(HD  L)«  L-  TL  L 113 

END*  RETURN  ALIST  llA 

END  IIS 

END;  116 

PRINTHIS-PRQC(CL)»  117 

BEGIN(J)*  118 

J«NIL»  119 

IF  SAVER  THEN  DO  120 

PRINT(#NULL  CLAUSE  ***»),  RETURN  O 121 

END  * 122 

WHILE  CL  REPEAT  DO  123 

PR1NT(NAMEQF(CL)»LITLIST(CL)» J)»  J-  HIX£DPAR( CL» » CL»  NE6PAR  12A 

(CL)  125 

*J-  NAHEOF(J)  126 

END  127 

END  128 

END;  129 

MAXI-  PR0C(A*B)*  130 

IF  A 6T  B THEN  A ELSE  B 131 

END;  132 

CSTK-MAKVECT0(201) ; 133 

OLDCOPY-  copy;  13A 

COPX-  PROC(Y)»  135 

BE6IN( I*K»X)f  136 

IF  Y EQ  NIL  THEN  RETURN  Y*  137 

IF  INTQ(Y)  THEN  RETURN  Y*  138 

IF  lOO(Y)  THEN  RETURN  Y*  139 

IF  -•PAIRO(Y)  THEN  DO  140 

PRINT(»»C0PY  PROBLEMS)**  Y), RETURN  OLOCOPY(Y)  141 

END*  142 

IF  -PAIRQ(Y)  THEN  RETURN  Y*  143 

K-l*I-3*CSTKm-H0  Y*  CSTKC21-  TL  Y*  144 

WHILE(K  LT  I)  REPEAT  DO  145 

IF  PAIRC(X>  CSTKCKl)  THEN  DO  146 

CSTKU]-K»CSTKC  I + ll-HD  X*  CSTKCl  + 21-  TL  X*  147 

I-  1+3  148 

END*  149 

IF  PAIRQCX-  CSTKtK-(K  + l)  DTHEN  DO  150 

CSTKI  IJ-K,CSTKt  1 + 11-HD  X*  CSTKII^Zl-TL  X*  I-  I't-3  151 

END*  152 

IF  1 6T  198  THEN  DO  153 

COPYFAIL-  COPYFAIL+1*  154 

K-X-NIUNIL*  155 

1-  Y*  WHILE  I REPEAT  DO  156 

X-  TL  X-  COPY(HO  1)1  NIL  * I-  TL  I 157 

END*RETURN  TL  K 158 

END*  159 

K-  K+2  160 

END*  161 

FOR  K-(I-l*5*-3)  REPEAT  162 
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CS1KCCSTK[K-2] ]-CSTK[K-l] iCSTk[K], 
RETURN  CSTK[1] :CSTKC2] 


r 


i 

4 


i 


END 


END; 

SO0INPLA«PROC(LIT»IjNIF  )» 

BEGIN(U»L2)« 

IF  -LIT  THEN  RETURN  NIL» 

WHILE  -(U.UNIF)  - UNIF  REPEAT  LIT*  SUbtR(LlT»HD  U 
t RETURN  (LIT) 

END 

END; 

SURER-  PROC(LIST» ITEM»REPLACE)» 

BE6IN(L2)> 

IF  EQUAL(  LIST»  ITEM)  THEN  RETURN  (REPLACE)# 

IF  ATGM(LIST)  THEN  RETURN  LIST# 

L2-  TL  LIST#  WHILE  L2  REPEAT  DO 

HD  L2-  SU0ER(HD  L2#ITEM  # REPLACE)#  L2-  TL  L2 
END# 

RETURN  (LIST) 

END 

END; 


♦♦  INPUT  PARSER 

** 


TL  U) 


♦ NANEl  IS  A VARIATION  OF  NANELIT.  HOWEVtR#  VARIABLES  ARE 

♦ REPLACED  BY  ELEMENTS  CF  A LIST  RATHER  THEN  NUMBERS 
NAMEl*  PRQC(LIT)# 

BEGIN!  S )# 

IF  -LIT  THEN  RETURN  NIL# 

IF  ATOM(LIT)  THEN  DO 

S-  L00KUP(LIT#NAMES)#  if  -S  then  DO 
IF  -AVARS  THEN  DO 

PRINT ( -NAMEl# -AVARS# -EMPTY )# RETAIN-FALSE#X VARS* 
XVARIA8L 
END# 

S*  HO  AVARS#  XVARS*  TL  AVARS#  N AME S- ( L I T « S ) « NAMES 

END# 

RETURN  S 
END# 

RETURN  HO  LIT:  MAPX(TL  LIT#  NAMEl) 

END 

END; 

MEMB-  PR0C(ITFM#ALIST)# 

BEGIN! )# 

WHILE  PAIRCKALIST)  REPEAT  DO 

IF  EQUAL! ITEM#HO  ALIST)  THEN  RETURN  TRUE#  ALIST-  TL  ALIST 
END# 

RETURN  ALIST  EO  ITEM 

END 

END; 

REMCO-  PROC(X)# 

BEGIN(XX#Y)# 

XX*  A# 


163 

16A 

165 

166 
167 
16B 

169 

170 

171 

172 

173 
17A 

175 

176 

177 

178 

179 

180 
181 
182 
163 
18A 

185 

186 

187 

188 

189 

190 

191 

192 

193 
19A 

195 

196 

197 
196 

199 

200 
201 
202 
203 
20A 

205 

206 

207 

208 

209 

210 
211 
212 
213 
219 

215 

216 


1 

i 

1 
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IF  ATOM(XX)  THEN  DO  217 

IF  MEri9ER(XX, CONSTANT  216 

) THEN  RETURN  LIST(XX)  ELSE  RETURN  XX  219 

END*  220 

IF  HD  XX  EQ  « A then  DO  221 

ANOSW-  TRUE»  HD  XX-  222 

END>  223 

IF  HD  XX  EQ  «f  THEN  DO  22A 

IF  HO  HO  TL  TL  XX  EQ  - a THEN  DO  225 

ANDSM  - TRUE*  HO  HO  TL  TL  XX  > 226 

END*  227 

IF  HO  HO  TL  TL  XX  EQ  ->  THEN  226 

RETURN(REMCO(HO  TL  XX)  > RLI^CO(HO  TL  TL  XX)  ) 229 

ELSE  RETURN  (REriCO(HD  TL  XX):  RtHCQ(HD  TL  TL  XX):  NIL)  230 

END*  231 

NHILE  XX  REPEAT  DO  232 

IF  HO  HO  XX  EQ  - A then  DO  233 

HO  HO  XX-  -*  *ANOSW-  TRUE  23A 

END*  V 235 

IF  HD  HD  XX  EQ  -*  THEN  DO  236 

Y-  HO  XX*  HO  XX-  HO  TL  Y»  TL  XX-(HO  TL  TL  Y)i  TL  XX  237 

END*  236 

HD  XX  - RENCOCHO  XX)*  XX-  TL  XX  239 

END*  RETURN  X 2A0 

END  2A1 

END:  2A2 

REMCOl-  REMCO:  2A3 

CONST  - PROC(X)*  2AA 

BEGINO*  2A5 

IF  ATCN(X)  THEN  CONSTANT  2A6 

-x:CONSTANT  2<»7 

ELSE  2A8 

CONSTANT  2<r9 

-APPENO(RENCC(X)*CONSTANT  250 

) 251 

END  252 

END)  253 

REMGCl-  REMCO:  25<i 

OIFFEREN  (X1*X2)  MEANS  NCTEQLIS-  (REMCO(-Xl)  : REMC0(-X2)):  NOTEOLIS;  255 

BRaCKET(-CONSTANT  256 

*100*-CQNSTANT  257 

) : 256 

CONSTANT  259 

XI  260 

END  MEANS  CONST(-Xl):  261 

INFIX ( -ASSERT* 1A51*1A50* -ASSERT) } 262 

XI  ASSERT  X2  MEANS  MIX EOCL-GENCL AUS ( -XI  * REMOC 1 ( -X2 ) * NIL ) « MI XEOCL * 263 

INFIX (-THEOREM* 1501* 1500* -THM ) : 26A 

INFIX{«FR0H*1A00» lAOO* -FRM):  265 

INFIX(-C0ER*1A51*1A50* -COER) : 266 

UNARY(-TYPE» 100* -TY) : 267 

TYPE  XI  - X2  MEANS  SE T PROP (- X 1* -TYPE  *X2):  268 

FIXCO-  PROC(X)*  269 

BEGIN(Y)*  270 
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ANCSm-  false# 

Y-HEMCO(X)»  IF  ATOII(r)  THEN  RETURN  Y» 

IF  -ANCSW  THEN  RETURN  LlST(Y)# 

RETURN  Y 

END 

END; 

INFIX(-  A , » A )j 

XI  THEOREM  X2  FROM  X3  MEANS  M I XtDCL • GENCL AUi ( • XI » RE MCQ ( « X2) » F I XCO 
(»X3))«  MIXEDCL  ; 

XI  COER  X2#  X3  MEANS  GENCUER ( • X 1» RE MCQl ( • X2 ) # REMCOl ( ■ X3 ) # Nl U } 

XI  COER  X2»X3»XA  MEANS  GE  NC  OE  R ( • X 1 » REMC  G U *X  2 ) » R E MCOl  ( - X 3 ) » F I XCO  ( = X <* ) ) J 
PROVE(Xl)  MEANS  OITER(«Xl»; 

INFIX  (-COMPLETE#  i-V01»140C»  “CPU  ; 

INFIX  (-CPROC#  1<*01#  1<*00»-CPRPC)  i 
INFIX  (-PART#! AOl#  1<*00#  -PART)  } 

INFIX  (-PARTEVAL#l'tCl#  1400# -PE)  ; 

XI  COMPLETE  X2  MEANS  DO 

SETPRGP(-X2#«CMPL#X1)#  COMPLET  » TRUE 
END; 

XI  CPROC  X2  means  do 

SFTPRCP(-X2#-CPR0C#X1) 

END; 

XI  PART  1 ■ X?  MEANS  DO 


PEFnS- 

END; 

XI  PART  2 

PEFNS- 

END; 

XI  part  3 
pefns- 
ENO; 

XI  PART  4 

PEFnS- 

ENO; 

XI  part  5 

FEFNS- 

END; 

XI  PART  6 
PEFNS- 


TRUE#  S£IPR0P(-X1#-PE1#X2) 

- X2  MEANS  DO 

TRUE#  SETPRQP(-X1#-P£2#X2) 

■ X2  MEANS  DO 

TRUE#  S£TPR0P(-X1#-PE3#X) 

> X2  MEANS  DO 

TRUE#  SETPR0P(-X1#-PE4#X2) 

• X2  MEANS  DO 

TRUE#  SETPR0P(-X1#-PE5#X2) 

> X2  MEANS  DO 

TRUE#  SETPR0P(-X1#-P£6#X2) 


end; 

XI  PARTEVAL  X2  MEANS  DO 

PEFNS-  TRUE#  SETPRUP(-X1#-P£#X2) 


END; 

* 


♦ CODE  GENERATORS 

* 

♦ GENCLAUSE  GETS  NAME  OF  CLAUSE#  POSITIVE  LlTtRAL#  AND  A LIST  OF 

♦ NEGATIVE  LITERALS  AS  ITS  THREE  ARGUMENTS. 

♦ IT  CREATES  A VECTOR  RESULT 

♦ NOTE  that  PE  DONT  GET  EXECUTED  HERE  NOR  DO  COMPLETIONS  OF  POSITIVE 

♦ UNITS 

♦ GENCLAUSE  DOES  NOT  RENAME  CLAUSES  TO  XVARS#  NOR  DOES  IT  CHECK 

♦ IF  A CLAUSE  SUBSUMES  OR  IS  A DUPLICATE  OF  AN  EXISTING  CLAUSE 

♦ PROC  GENNEG  IS  THE  RUNTIME  GENERATOR  . IT  IS  IN  THE  POST  UNIFICATION 
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271 

272 

273 

274 

275 

276 

277 
27b 

279 

280 
281 
282 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 
306 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 
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♦ StCTIGN.  325 

GENCOER-  PRQC<NAME/ A#B»0#  326 

BE6IN(XVARS»  NAMES)#  327 

NAMES-  NIL# XVARS-ZVARIABL#  328 

GOERS-  NAME:CaERS»  329 

SETPR0P(NAME#-PAIK#NAMEUA)JNAME1(6))  330 

» VALUE  NAME-  VEC TOP ( N AME # N 1 L# MA P X ( C # N AME 1 ) » L E NGTH( C ) # N I L # N I L# 0 331 

#0)»  332 

V-  COPY(ZVARIArtL)#  WHILE  XVARS  REPEAT  00  333 

V-  DEL£TE(HO  XVARS/V)#  XVARS-  TL  XVARS  33A 

END#  335 

OETAIL(V)#  336 

SETPROP (NAME#- VARS# V) # RETURN  VALUE  NAME  337 

END  338 

END;  339 

GEnCLAUS-PRQC(NAM6#P0S»NE&)#  350 

BEGIN(P)#  351 

VALUE  NAME  - V ECTOR ( NAM t # Nl L # N IL » L ENGT H( NEG ) # NI L #N I L# 0# 0 ) » 352 

LITLIST( VALUE  NAME)  « NEG#  353 

SETPRLP(NAM£#-POSLIT,PGS)#  355 

MERITVAL( VALUE  NAME)-  COMPLEX(NEG)  # 355 

IF  POS  THEN  DO  356 

P-  PREDCHAI#  WHILE  P REPEAT  DO  357 

IF  HD  POS  EQ  HO  HD  P THEN  DO  358 

TL  HO  P-(VALU£  NAME);(TL  HO  P)#  359 

RETURN  VALUE  NAME  350 

END#  P-  TL  P 351 

END#  352 

PREOCHAI-  ((HO  POS)»((VALUE  N AME ) « N I L ) ) » PR EOCHAI  353 

END#  355 

RETURN  VALUE  NAME  355 

END  356 

END;  357 

♦ 358 

♦ UNIFICATION  359 

♦ 360 

ZVARIAfaL-  -(21  Z2  Z3  25  25  26  27  28  29  ZIC  211  212);  361 

SETBIND(X1#X2)  MEANS  362 

(((  X1:X2):NU)JNIL)  ; 363 

INFIX ( -I SNOTIN# 1501# 1200, -NOT  IN ) ; 365 

EMPl-  LIST(NIL);  365 

EMPTY  - L1ST(LIST(NIL)  ) ; 366 

♦♦  NOTIN  IS  A UNIFICATION  PRIMATIVE  VAR  NOTIN  EXP  367 

NQTIN-  PROC( VAR, ALIST)#  368 

BE6INO#  369 

IF  -«PAIRQ(  ALIST)  THEN  RETURN  (-  EQUAL  ( VAR#  AL  1ST  ))  # 370 

ALIST-  TL  ALIST#  371 

WHILE  ALIST  REPEAT  DO  372 

IF  -NOTIN(VAR#  HD  ALIST)  THEN  RETURN  FALSE#  373 

ALIST-  TL  ALIST  375 

END  # RETURN  TRUE  375 

END  376 

END;  377 

♦ THE  PAIR  OF  A COERCION  ARE  COPIES  OF  THE  TWO  EQUIV  EXPRESSIONS  378 
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♦ WHEPE  VAPlAbLES  HAVE  BEEN  REPLACED  PY  NUMBERS  379 

PUSHUNIF«PRaC(OLO.NEw)>  3bC 

BEGIN (U1»U2» LI »L2»U3»U,P»LA)»  3dl 

♦ ♦ OLD  AND  NEW  ARE  TWO  UNIFER  HSIS  WHICH  ARE  TO  BE  COMBINED  AND  UPDATE  3B2 

IF  equal  < OLD  » EMPU  THEN  RETURN  NEw»  383 

IF  EQLAL(  EMPI»NEW)  THEN  RETURN  OLD»  38A 

-(U1.L1)-0LD/-{U2.L2)»NFW/  385 

Ll«  SUB1(L1>U1).  LI-  SU61(L1»L2)»  386 

L2-  SU81(L2»U2)»  387 

LA-L2,  3bP 

IF  L2  THEN  389 

DO  390 

WHILE  TL  L2  REPEAT  L2-  TL  L2,  TL  L2-  LI  391 

END  ELSE  LA-  Ll»  392 

U3  - Ul»  393 

WHILE  -(P.U3)-U3  REPEAT  TL  P-  SUBINPLA(TL  P»U2)»  39A 

U3  - Ul#  395 

IF  U3  THEN  00  396 

WHILE  TL  U3  REPEAT  U3-  TL  L3,  TL  U3-U2  397 

END  ELSE  U1-U2*  398 

RETURN  U1:LA  399 

END  AOO 

END;  AOI 

MGUl-  PROC(P>N,  A»  B,  OUT,OEPTH»COR/BINDS#NAMU»  A02 

BEGIN(M1,'^,P1,U»M2»M3>  MHOLO)»  A03 

M-M2-NIL*  AOA 

IF  3VARS  THEN  DO  A05 

IF  ATQM(P)  AND  ATCM(N)  THEN  RETURN  UCUT  AQ6 

END*  A07 

UNIFO£PT-UNIFDEPTfl»  A06 

IF  BVARS  THEN  DO  A09 

IF  ATOM(P)  AND  ATOM(A)  THEN  N-  L 1 ST ( L 1ST ( A : P ) i NI  L ) Aic 

END  » IF  --M  THEN  All 

M-  (IF  U1  THEN  fchPTY  ELSE  MGUSET ( P» A, DEPTH* AOOLI T S-  LENGTh(COR)  A12 

,NAME))»  A13 

WHILE  -(Ml.M)  - M REPEAT  DO  AlA 

M2-  NIL*  A15 

IF  BVARS  THEN  DO  A16 

IF  ATOM(N)  and  ATQM(B)  then  M2-  L I S T ( L I ST ( B : N ) : N I L ) A17 

END  *IF  •’M?  THEN  A18 

•i2-  (IF  U2  THEN  EMPTY  ELSE  MGUSET(  SUBCOP  Y(  N*HD  M 1 ) * SU8C  uP  Y ( B A19 

*HD  Ml)*  A20 

DEPTH* ADDLITS-  LENGTH(COR)-  LENGTH(TL  M1)*NAM6))*  A21 

WHILE(-(M3.M2)-M2)  repeat  DO  A22 

UOUT-  PUSHUNIF ( PUSHUNIF(CQPY(M1) *M3)* (COPY( BINDS) iCJPY(  A23 

COR)))»UOUT  A2A 

END  A25 

END*  A26 

UNIFDEPT-UMFOEPT-1*  A27 

RETURN  UOUT  A28 

END  A29 

END;  A30 

POSSIBLE-PROC( A*  N * FLAG)*  A31 

BEGINO*  A32 
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VALUE  FLAG  • NIL» 

IF  ATCM(A)  THEN  RETURN  TRUE# 

IF  ATC»1(N)  THEN  RETURN  TRUE  » 

IF  HD  A EQ  HO  N THEN  RETURN  TRUE#  RETURN  FALSE 

END 

END; 

MOUSE T«  PROC(N#P#DEPTH#AODLITS#DONT) # 

BE6IN(NT# PT# P1#N1#  UNIFS#  UOUT#El#  U2#B.  U1#A#E»M#  LC3P#  BIND# 
BINDS# 

U# J# J2#NAME)# 

IF  EOUAL(N#P)  THEN  RETURN  (EMPTY)# 

Nl-  NOTEQLIS# 

WHILE  N1  REPEAT  DO 

NT*  HD  Nl»  Nl*  TL  Nl# 

IF  EOUAL(HD  NT#P)  AND  EOUAL(TL  NT#N)  THEN  RETURN  -NOGQOD# 

IF  EQUALCHD  NT#N)  AND  EQUAL(TL  NT#P)  THEN  RETURN  «NUGOOO 
END# 

IF  DEPTH  GT  NAXCOERS  THEN  RETURN  >NOGUOD# 

UOUT-UNIFS-NIL# 

IF  -BYPASS  THEN  DO 
IF  ATOM(P)  THEN  DO 

IF  P ISNUTIN  N THEN  UNIFS*  L I S T ( SE T 8 1 ND ( P# N ) ) 

END 

ELSEIF  ATQM(N)  THEN  DO 

IF  N ISNQTIN  P THEN  UNIFS*  L I ST ( SE T3 1 NO ( N# P ) ) 

END# 

UOUT-UNIFS# 

IF  PAIPO(N)  AND  PAIPQ(P)  AND(HD  N EQ  HO  P)  THEN  DO 
UNIFS-EMPTY# 

NT  • TL  N#  PT*  TL  P# 

WHILE  NT  REPEAT  DO 

Nl*  HO  NT#  NT*  TL  NT# 

PI*  HO  PT#  PT-  TL  PT#  UCUT*  NIL# 

WHILE  UNIFS  REPEAT  DO 

U*  HD  UNIFS#  UNIFS*  TL  UNIFS# 

IF  AOOLITS  LT  LENGTHCTL  U)  THEN  M*  -NUGOOD  ELSE  DO 
A*  CaPY(Nl)#B*CGPY(Pl)  # 

UNIFOEPT-UNIFJEPT^l# 

M*MGUSET(SUBINPLA(A#H0  U)#  SUBINPLA( B#HD  U)» 
DEPTH# 

AD0LITS-LENGTH(TL  U)»NID# 

UNIFDEPT*UNIF0EPT-1 

END# 

WHILE  PAlkQ(M)  REPEAT  DO 
E*  HO  M»  M-  TL  M# 

UOUT*PUSHUNlF(COPY(U)»E) «UOUT 

END 

END#  UNIFS*  UOUT 

END 

END 

END#  BYPASS-NIL# 

E1*(AT0M(N)  or  ATOM(P))# 

IF  -El  THEN  El*  (HD  N EQ  HD  P)# 

IF  -El  THEN  El*  ALWAYS# 


A35 

<*36 

<•37 

<*30 

<*39 

<*<*0 

<•<*1 

<*<*2 

<*93 

<*A<* 

<t<*5 

<*<*6 

<*<i7 

<*<*6 

<*<*9 

<*50 

<*51 

<*52 

<*53 

<*5A 

<*55 

<*56 

<*57 

<*58 

<*59 

A60 

<*61 

A62 

<*63 

<t6<* 

<*65 

<*66 

<*67 

<*66 

<*69 

<*70 

<*71 

<*72 

<*73 

<*7<* 

<*75 

<*7t 

<*77 

<*78 

<*79 

<*80 

<*81 

<*82 

<*63 

<*89 

985 

986 


-144- 


t 

1 


T 


IF  El  THEN  00  ^37 

IF  (DEPTH  LT  MAXCOERS)  THEN  DO  ^83 

E=  COERS»  ^89 

WHILE  E REPEAT  DO  '*90 

El*  HD  E,  E*  TL  E»  -t91 

IF  El  NE  OONT  THEN  DO  ^92 

NAME-  El,  <»93 

IF  CLtNGTH(  VALUE  El)  LE  AODLITS  THEN  DO  A9<. 

J2»GETPRUP(Ei,“CPR0C),  A95 

IF  CGPYPAIR ( E1,N, P ) THEN  DO  A96 

3ISDS,  A97 

IF(->ATCM(A)  AND  -•ATCM(d))  OR  (UNIFDFPT  NE  0)  A98 

THEN  DO  A99 

BINDS-  NIL,  500 

£1-  LCOR,  501 

IF  C0DE0(J2)  THEN  J • J 2 ( N, P, UOJ T ) ELSE  J-  502 

TRUE,  503 

IF  J THEN  DO  50A 

Nl-  0,  IF  J NE  TRUE  THEN  Ni= (MAXCOERS  - 505 

J ),  M-  NAX1(N1,DEPTH+1),  506 

IF  POSSIBLE ( A, N, -U1 ) AND  PJ S S I 8 L E ( 3 , P, « 507 

U2)  THEN  DO  508 

UOUT-MGUK  N,P,A,o,UUT,Nl,CUPY(El),  509 

BINDS, NAME)  510 

END  511 

END,  512 

IF  (--ONEWAY)  OR  (■’UJUT)  THEN  DO  513 

IF  CuDEt(J2)  THEN  J • J 2 ( P , N, UOLT ) ELSE  J 51A 

- TRUE,  515 

IF  J THEN  DO  516 

Nl-  C,  IF  J NE  TRUE  THEM  Nl-(  517 

MAXCOERS  -J  ).  M-  MAXK  N1,0EPTH  + 1 ) , 518 

IF  POSSIBLt ( B,N, -U2)  AND  P0SSI8LE(A,  519 

P,-U1)  THEN  DO  520 

UOUT-MGUl(P,N,A,B,UUT,Nl,bl,BINDS  521 

,NAME)  522 

END  523 

END  52A 

END  525 

END  526 

END  527 

END  528 

END  529 

END  530 

END  531 

END,  532 

IF  •’UOUT  THEN  UOUT  - -NOGOOD,  533 

RETURN  UOUT  53A 

END  535 

END  ; 536 

COPYPAIR-PROC(COR,i,T) , 537 

BEGIN(P, V,V1),  538 

P-G6rPRQP(C0R,-PAIR),  539 

IF-’PQSSIBLE(HD  P,S,-V)  THEN  DO  590 
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IF-’POSSlBLe(  TL  p»  S » -y/)  THEN  RETURN  FALSE*  5<*1 

IF  -«POSSiBL£(HO  P » T *»V)  THEN  RETURN  FALSE 
END*  5<<3 

IF  -PCSSIBLECTL  P*  T *«V)  THEN  RETURN  FALSE* 

P«  COPY ( G6TPRUP(C0R* -PAIR ))* V-  & t T PR  OP ( C OR  * • V AR S ) * 5A5 

BINO=  NIL*  WHILE  -(Vl.V)  « V REPEAT  &A6 

BINO*(  VH  (CQRIO-CORID*!)  ) »8IND*  LCDR*  SUB  1 ( COP  Y ( L 1 T L I ST  ( V ALU6  5<*7 

COR))  &A8 

* BIND)  * 5A9 

A«SU8INPLA(CGPY(H0  P ) * B I ND ) * B - SU B 1 NP L A ( C G P Y ( TL  P)*BIND)*  5SO 

RETURN  TRUE  551 

END  552 

END;  553 

VARSNUN*  PROC(LIT)*  55A 

BE6IN(S*L2)*  555 

S=0*L2»TL  LIT*  WHILE  L2  REPEAT  DO  556 

IF  ATOMIHD  L2)  THEN  S*  ELSE  S-  S* VAR SNUM ( HD  L2)*L2«  TL  557 

L2  550 

END*  559 

RETURN  S 560 

END  561 

END)  562 

♦ 563 

♦ POST  UNIFICATION  PROCESSING  56A 

♦ 565 

EMPTYCLA-  PROC(X)*  566 

CLENGTH(X)  EQ  0 567 

END;  568 

♦ SUBTRACT  IS  USED  TO  BUILD  RESOLVENTS.  569 

♦ IT  BOTH  applies  A UNIFIER  AND  REMOVES  OCCURANCES  OF  THE  LITERAL  570 

SUBTRACT»PRGC(LIST*LIT*UNIF)*  571 

BEGIN(L  * LD*  572 

LIT«  SUBINPLAI LIT*UNIF  )*  573 

L«  NIL*  57A 

WHILE  LIST  REPEAT  DO  575 

LI-  SUBCOPYIHD  LIST*UNIF)*  576 

IF  -«EQUAL(L1*LIT)  THEN  L-  LliL*  577 

LIST-  TL  LIST  576 

END*  RETURN  L 579 

END  580 

END;  581 

FAKECL-VECTOR(«FAKECL*NIL.O.NIL.NIL*0*-100);  582 

CPLEX-  PROC(CL)*  503 

MERITVAL(CL)  ♦ OEPTHVAL(CL)  / MAXCPLEX  58A 

END;  585 

NEST-  PR0C(CL*0)*  586 

BE6IN(M*M2)*  587 

IF  ATDM(CL)  THEN  RETURN  D*  580 

M-O*  589 

WHILE  CL  REPEAT  DO  590 

M2-  NESTIHD  CL*  D+D*  591 

IF  M2  6T  M THEN  h-  M2*  CL-  TL  CL  592 

END*  593 

RETURN  M 59A 
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END  595 

END;  59fc 

CLNEMbt:P-PKQC(CL»LI  ST)  , 597 

BEGlNCif )« )>  59b 

M-MERITVAL(CL)»  599 

CL«LITL1ST<CL) » 600 

WHILE  LIST  REPEAT  00  601 

W-  HO  LIST.  IF  HEPITVAL(m)  EQ  M THEN  DO  602 

IF  SANECL(CL>W)  THEN  DO  603 

IF  CLAUSEPfi  THEN  60<* 

PRINTIkUUPLICaTE  0F«‘»NANE0F  ( k)  ) , RETURN  TRUE  605 

END  606 

END>  607 

LIST-  TL  LIST  606 

ENO»  RETURN  NIL  609 

END  610 

END;  611 

CLEC-  PR0C(LIT1,LIT2)»  612 

BEGIN!)*  613 

IF  EQUAL(L1T1,LIT2)  THEN  RETURN  TRUE*  6U 

IF  ((  PREOSYM! LITI)  EQ  EOi)  OR  ! PRED S YM ( L I T i ) EQ  EQ 2 ))  615 

AND  ( (PRE0SYH(L1T2)  EQ  EUi)  UR  ( PR  EC S Y N ( L 1 T2 ) EQ  Ej2  ))  616 

THEN  617 

DO  618 

IF  E0UAL(TL  L1T1*TL  LIT2)  THEN  RETURN  TRUE*  619 

IF  - EQUAL!  HO  TL  LIT1*H0  TL  TL  L1T2)  THEN  RETURN  FALSE*  620 

RETURN  EOUAL!HD  TL  LIT2*  HD  TL  TL  LITl)  621 

END*  RETURN  FALSE  622 

END  623 

END;  628 

SaMECL-  PR0C!LIT*CPR) * 625 

BE6IN!CPRLIT)*  626 

CPRLn-LITLIST!CPR).  627 

RETURN  SEQUAL!LIT*CPRLIT)  628 

END  629 

END*  630 

NOVE-  PROC!LIST)*  631 

BEGIN!)*  632 

WHILE  LIST  REPEAT  DO  633 

IF  HD  HO  LIST  NE  -MARK  THEN  RETURN  LIST,  LIST-  TL  LIST  638 

END*  RETURN  NIL  635 

END  636 

END;  637 

GtNNEG-  PROC!NCTX*MCTX*NcGLIT*UNIFER*NEGLITS)*  636 

BEGIN!CL*PLIT*LITS)*  639 

NEGLITS-  COPYINEGLITS)*  680 

PLIT-CGPY!LITLIST!MCTX) )*  681 

CURCONTE  - CL-  VECTOR  ! CL AUSE I D -CL AUS E 10+ 1* NC TX* N IL * LENGTH ! Pl I T 682 

) 683 

♦ CLEMGTH! NCTX  ) -1,  MC T X * M L * 0 E P TH V AL ! NC T X ) ♦! * ME R IT  V AL ! NC T X ) ) * 688 

IF  SAVER  THEN  MjxE DP AR ! CURCONTE ) • NIL*  685 

IF  SAVER  THEN  NEGP AR ! CURCONTE ) - NIL*  686 

LITS-  APPENO!TL  UNIFER , APPEND! PL  1 T* NEGLI TS ))  * 687 

DETAIL !LITS)*  688 
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PLIT-LITS.  WHILE  PUT  REPEAT  DO  649 

HO  PLIT  - SUBINPLA(HO  PLIT»HD  UHlFEk)^  PLIT  - TL  PUT  650 

END*  651 

OETAIL(LITS).  bbi. 

IF  COPPLET  THEN  653 

UTS->MARK(LITS»SUBINPLA(NEGUT»H0  UNIFEkI)  ELSE  LITS«  OELETE(  654 

S0B1NPLA(NEGL1T,H0  UN  IF £R I , LI T S ) * 655 

DETAIULITS)*  656 

M£KITVAL(CU«  C0MPL£X(L1TS)i  657 

IF  PEFNS  THEN  00  658 

NEW0INOS*  NR*  NAMES»NR*XVAPS*XVARIABL*UTS»MAPX(LITS*NAMtl  659 

)*  660 

IF  RETAIN  THEN  661 

LITS«  EVALUAT£(UTS>  662 

END*  663 

DET4IL(UTS>*  664 

IF  COUPLET  THEN  665 

TESTCCMP(LITS) * 666 

IF  COUPLET  THEN  667 

L1TS»  HERG£(LITS)»  668 

LITS-  ReNAME(RENANE«LITS*CaPID-*-2)*0)*  669 

DETAILRITS)*  670 

L1TLIST(CL)-LITS*  671 

CLENGTH(CL)-  L ENGTH ( L 1 T S ) » 672 

RETURN  CL  673 

END  674 

END)  675 

SE0UAL»  PROC(LITS*LITS2)*  676 

BEGINO*  677 

LITS-MOVE(LITS)*  L ITS  2- NOVE ( L 1 TS 2 » * 678 

WHILE  LITS  REPEAT  DO  679 

IF  '•CLEQ(H0  UTS  * HO  LITS2)  THEN  RETURN  FALSE*  680 

LITS»MDVE(TL  L I T S ) * L I TS2-M0 V E ( TL  L1TS2)*  681 

IF  •'  LITS  THEN  RETURN  '•LITS2  682 

END*  RETURN  FALSE  683 

END  684 

END;  685 

AODNEGS-  PRQC(CL)*  686 

BEGIN(N*M*B>*  687 

N»FAK£CL«NEGS*  M-CPLEX(CL ) *B-N*  68  8 

RACCPT-  PACCPT+1*  689 

NUMSOLUT-  NUMSGLUT+1*  690 

WHILE  TL  N ANO(CFLEX(HO  TL  N)  LT  H)REPEAT  691 

N*  TL  N*  TL  N-  cl:  TL  N*  NtGS-  TL  8*  RETURN!)  692 

END  693 

END;  694 

OBLATE*  PR0C(CL*RETAIN)*  695 

BEGINO*  696 

IF  OEPTHVAL(CL)  GT  NAXLEVEL  THEN  DO  697 

RETAIN-  FALSE*  698 

OEEPCNTR-  OEEPCNTR^l*  699 

PRINT(#OEPTH  CUTOFF*:)  700 

END  701 

ELSE  IF  NEST(L1TUST(CL)*0)  GT  MAXNEST  THEN  DO  702 
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NSTtt«  NSTR»1» 

pRInT(i»TOO  OFfcPi«),  RETAIN-  FALSE 

END 

ELSE  IF  NERITVAL(CL)  GT  NAXCPX  THEN  DO 
CNTR-  CNTR*1» 

RETAIN  • FALSE»  PRiNKxTOO  CLHPLEXc) 

ENO» 

RETURN  RETAIN 

END 

END; 

♦ PARTIAL  evaluation  QE  PREDICATES  AND  FUCTIC'lS 

A 

CAOJUST(Xl)  MEANS  IF  M E MBt R ( X 1 , CONSTANT 
) THEN  XI-  LISTC  XI) I 
RENAMES  • -(PFl  PEi-  PE3  P E Pe5  PE6); 

♦ WHEN  WE  start  to  PE  A CLAUSE  WE  FIRST  CHANGE  ALL  VARIABLES  INTO 

♦ MEMBERS  OF  THE  LIST  VARIABLES.  THIS  LETS  lOQ  WORK 

♦ISeOUNO  RETURNS  TRUE  IS  ITS  ARGUMENT  HAS  A BINDING  ON  THE  SPECIAL 

♦ BINDING  LIST  FOR  THIS  CLAUSE 

XVARIABL-  -(XI  X2  X3  X A X5  Xt  X7  Xd  X«)  XIO  Xll  X12)| 

IS0OUNO-  PROC(VAR, CONTEXT). 

BEGIN!  ) . 

C AO JUST( VAR  ) , 

IF(8Nl  VAL-LOOKUP(VAR.NEaBINCS) )THEN  RETURN  TRUE. 

IF  NUMARGS()  EQ  1 THEN  CONTEXT-  CURCONTE. 

RETURN  ISBNOK VAP. CONTEXT) 

END 

END; 

ISBNOl-  PR0C( VAP.CTX) , 

BEGIN!  ). 

♦ THE  global  variable  BNPVAL  GETS  THE  BINDING 

IF  (BNOVAL-  LOCKUP! VAR. BIN0INGS!CTX)  ) ) THEN  RETURN  TRUE. 

IF  INPUTCL(CTX)  THEN  RETURN  FALSE. 

IF  ISBn01!VAR,NEGPAR!CTX))  THEN  RETURN  TRUE 

END 

END; 

VARIABlE-PROC (ITEM), 

-PAlRQdTEM)  AND  -ME  MB  E P ! I TE  M . CONST  ANT 
) 

END; 

BIND-  PROC ! EXPl . EXP2  ) . 

BEGIN! J) . 

CA0JUST!£XP1),CADJUST!EXP2). 

IF  -SAVER  THEN 

NEwBTNOS- ! EXPl  : EXP2)  »N6WbiNDS. 
MASTPRE0-!SUBINPLA!MASTPR£D.EXPH  EXP2  «NIL  )) 

END 

END; 

PE-  PROC(PRED). 

BEGIN(S.A.J). 

S-PREOSYM! PRED  ) . A- ARGL I S T ! PR E 0 ) . M AP R ! A . PE  V Al 1 ) . 

IF  CQDEU! J-G£TPROP!S.-PE)  ) THEN  RETURN  j!PREO) 

ELSE  RETURN  PREO 
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END  757 

END;  756 

PEVAL«  PROC(FN)»  759 

BE6IN( S>A>J)»  760 

S-FSSYM(FN)»A»ABGLIST('-M)»  M APR  ( A » P t V ALl » * 761 

IF  CODEQi J-GETPROP(S»«Pe))THEN  DO  762 

S-J(FN)»  763 

CAOJUST(S)>  RETURN  S 769 

END*  765 

RETURN  FN  766 

END  767 

END)  768 

PEVALl*  PROC(X),  769 

BE6XN(YI#  770 

IF  ATUIi(X)  THEN  RETURN  X»  IF  -TL  X THEN  RETURN  X , 771 

Y-PEVAL(CaPY(X) )»  772 

IF  -EGUAL(X»Y)  THEN  BIND(X,Y)  , RETURN  Y 773 

END  779 

END;  775 

EVALUATE  - PROC(CL)»  776 

BE6IN<9>NEWBINDS)>  777 

B»  CL>  776 

WHILE  B REPEAT  DO  779 

NEWBINDS»NIL»  780 

IF  HD  HD  6 NE  >MARK  THEN  DO  781 

WORK«PARTEV(HD  B)>  782 

OETAIL(WORK)»  783 

IF  WORK  EQ  TRUE  THEN  Cl«  DELETECHD  0»  CL)»  789 

IF  WORK  EQ  FALSE  THEN  DO  785 

RETAIN-  FALSE*  PRINT(xtVAL  REJECTS^),  786 

RETURN  CL  787 

END*  788 

IF  NEWBINOS  THEN  DO  769 

S-  NIL*  SUBINPLA(NlLiCL*  NEWBINOS)*  790 

WHILE  NEWBINDS  REPEAT  DO  791 

IF  ATOM(HO  HO  NEtaBINDS)  THEN  DO  792 

IF  - fi£MBER(HO  HO  NEWBINOS*  XVARIA3L)  THEN  DO  793 

S-  (HO  NEWBINOS)  « S 799 

END  795 

EN0*NEWBINDS-  TL  NEWBINDS  79c 

END*  797 

WHILE  S REPEAT  DO  798 

NEWBINDS-  (HD  S)«  NEWBINDS*  S-  TL  S 799 

END*  600 

IF  NEWBINDS  THEN  B IND INGS ( CURCONTE ) - NEWBINDS*  801 

BINDINGS(CURCONTE)  802 

END  803 

ENO*B-  TL  B 809 

END*  RETURN  CL  605 

END  606 

END;  807 

CRACK-  PROC(PAT*EXP) * 806 

BE6IN(S)*  809 

IF  IDCi(PAT)  THEN  DO  610 
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IF(CQDEQ(S>GETPRQP(PAT»=TYPE)  ) ) THEN  00  011 

IF  PAIRQ(EXP)  AND  -ARGL I ST ( EXP ) THEN  DO  012 

S-  S(HO  EXP)»EXP-  HO  tXP  613 

END  81<» 

ELSE  S«  S(EXP),  01S 

IF  - S THEN  RETURN  FALSE  016 

END>  017 

VALUE  PAT  » EXP,  RETURN  TRUE  010 

END,  019 

IF  ATOM(PAT)  THEN  RETURN  EOUAL ( P A T, EXP ) , 020 

IF  ATCM(EXP)  THEN  RETURN  FALSE,  021 

IF  CRACKCHO  PAT, HO  EXP)  THEN  RETURN  CRACKCTL  PAT,  ¥L  EXP),  822 

RETURN  FALSE  023 

ENO  02<» 

END;  026 

PARTEV  • PROC(PRED),  026 

BEGIN( CONTEXT, MERIT, S,NPN,S A, DEPTH, J,V,MASTPRED),  027 

MASTPPEO-PREO,  028 

C0NTEXT*CURC0NTE,HERIT«MERITVAL(C0NTEXT) , DEPTH-0EPTHVAL(  829 

CONTEXT),  830 

S«  PE(PRED),  831 

MERITVAL(C0NT£XT)-MERIT,  032 

IF  -•PAIRQ(S)  THEN  RETURN  S,  833 

IF  -PAIRQIHD  S)  THEN  RETURN  S , 03<» 

NFN«  RENAMES,  SA-  ARGLliT(S),  835 

WHILE  SA  RePFAT  00  036 

IF  VARIABLEiHO  SA)  THEN  DO  837 

IF  COOEO(  J.-GET‘>RQP<PREOSYW(S),HO  NPN)  ) THEN  DO  030 

V»  J(PR£0»,  039 

IF  V NE  PRtO  THEN  DO  000 

BINOCHO  Sa^V),  return  TRUE  801 

END  802 

END  603 

ENO,  000 

NFN-TL  NFN,SA«  TL  SA  005 

END,  806 

MERITVAL(CONTEXT)«MERIT,  RETURN  S 007 

end  600 

END;  009 

GROUND-  PROC(X),  850 

BEGIN(T),  051 

IF  ATCKX)  THEN  DO  052 

(IF  VAR1A0LE(X)  THEN  RETURN  FALSE),  05» 

RETURN  TRUE  850 

END,  055 

T-  TL  X,  056 

WHILE  T REPEAT  DO  857 

IF  -GROUNO(HO  T)  THEN  RETURN  FALSE,  T-  TL  T 658 

ENO,  059 

RETURN  TRUE  860 

ENO  061 

END;  002 

HASCCN-  PROC(LIT),  863 

BEGINO,  v-60 
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IF  ATOn(LlT)  THEN  RETUKN  FALSE*  £6^ 

IF  - TL  LIT  THEN  RETURN  TRUE*  666 

LIT-  TL  LIT,  667 

WHILE  LIT  REPEAT  DO  666 

IF  HASCUNCHO  LIT)  THEN  RETURN  TRUE*LIT-TL  LIT  669 

END*  670 

RETURN  FALSE  671 

END  672 

END;  673 

FREEVARS-  PROC(LITS)*  67<» 

8E6IN(L*H*St*  876 

S-0*L-N1L*H-LITS*  876 

WHILE  H REPEAT  DO  677 

GETFR6E(HD  H)*  H-  TL  H 678 

END*  RETURN  S 679 

END  660 

END;  861 

GETFREE-  PROC(LIT)*  882 

BEGIN(T)*  683 

IF  ATOM(LIT)  THEN  DO  86A 

IF  -L  THEN  DO  885 

L-  LITiNIL*S-1, RETURN  NIL  866 

END*  887 

IF  NEHBER(LIT  *L)  THEN  RETURN  NIL*  888 

L-LITiL*S-S+l*RETURN  NIL  889 

END*  890 

T-  TL  LIT*  891 

WHILE  T REPEAT  DO  692 

GETFREECHD  T)*  T-  TL  T 893 

END*  RETURN  NIL  89<t 

END  895 

END  ; 896 

♦ 897 

♦ COMPLETIONS  698 

♦ 899 

ADDMIXEO-PROC(NEWCL)*  900 

MIXEOCL-NEwCLiMIXEOCL  901 

END;  902 

♦ CL  IS  A LIST  OF  LITERALS  903 

♦ WE  REMOVE  EACH  LITERAL  EQUAL  TO  LIT  AND  REPLACE  IT  BY  A 904 

♦ ONE  ARGUMENT  PREDICATE  -MARK  THE  LITERAL  BECOMES  THE  ARGUMENT  905 

♦ LATER  THE  CLAUSE  WILL  BE  CHECKED  FOR  COMPLETIONS  906 

♦ IF  A MARKED  LITERAL  IS  AT  THE  TOP  OR  TwQ  MARKED  LITERALS  ARE  907 

♦ TOGETHER  THEN  THEY  MAY  BE  COMPLETED  908 

MARK-  PROC«CL*LI T)*  909 

BEGIN(B)*  910 

B-  CL*  911 

WHILE  CL  REPEAT  DO  912 

IF  EOUALIHD  CL*LIT)  THEN  HD  CL-  L I S T ( -MARK , L I T ) * 913 

CL-  TL  CL  914 

END  * RETURN  8 915 

END  916 

END:  917 

♦ MERGE  REMOVES  MARKED  LITERALS  FROM  THE  TOP  OF  A LIST  918 
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* IT  DOES  NOT  CHECK  FOB  MERGES  919 

* HOtaEVEB  THIS  IS  JUST  THE  PLACE  TO  PUT  IN  THAT  CHECK  920 

MERGE-  PROC(CL)»  921 

BEGIN!  )»  922 

WHILE  HD  HD  CL  EG  -MARK  REPEAT  CL  - TL  CL»  RETURN  :l  923 

END  92A 

END!  92S 

* MOVE  FINOS  THE  FIRST  NON  MARKED  LITERAL  OF  A LIST  926 

MOVE-  PROC(LIST),  927 

BEGIN!)*  928 

WHILE  LIST  REPEAT  DO  929 

IF  HD  HD  LIST  NE  -MARK  THEN  RETURN  LIST*  930 

LIST-  TL  LIST  931 

END*  RETURN  NIL  932 

END  933 

END)  934 

**  TEST  FOR  completions  MARKED  LITS  AT  TOP  OR  NEXT  TO  EACHOTHER  935 

TESTCOMP-PROC !CL  ) * 936 

BEGIN!SWITCH)*  937 

SWITCH-  TRUE*  938 

WHILE  CL  REPEAT  DO  939 

IF  HD  HD  CL  EQ  -MARK  THEN  940 

! IF  SWITCH  THEN  C0t1PL£TR!HD  CL)  ELSE  SWITCH  - TRUE  ) 941 

ELSE  SWITCH  - FALSE*  CL-  TL  CL  942 

END  943 

END  944 

ENOJ  945 

C0MPLETR-PR0C!LIT)*  946 

BEGIN! S*  J*  TEMP,G*  T2* L * N* NEGL I TS* UN  * U*CL ) * 94  7 

S-PREDSYM! LIT) * 948 

IF!”!  J-C00E(1!G£TPR0P!  S* -CMPLTR  ) ) ) J THEN  RETURN  NIL*  949 

TEMP-J!Lin*  930 

WHILE  TEMP  REPEAT  DO  951 

IF  HD  TEMP  EQ  TRUE  THEN  DO  952 

G-  GENCLAUS  !GENSYM!  ) *ML,LIST!LIT)  ) * 953 

ADOMIXED!G)  954 

END  955 

ELSE  DO  956 

T2-  GETPROP!HO  TEMP* -0£ SENO  ) « ! HD  TEMP),  957 

WHILE!-!CL.T2)»  T2)  REPEAT  DO  958 

NEGL1TS-L1TLIST!CL)*  959 

WHILE  -!N.NEGlIT)-NEGLITS  REPEAT  DO  960 

UN-  MGUSET!n*CJPY!LIT)*  MAXC0ERS^1*0 ) * 961 

WHILE-!U.UN)-UN  repeat  do  962 

AODMIX£0!GENCLAUS!G-GENSYM! )*SU8INPLA!P0SLIT  OF  963 

CL*HD  U)*  964 

SUBTRACT!LITLIST!CD*  LIT*H0  U)))*  965 

IF  CLENGTH!G)  EQ  0 THEN  COMPLETR  !G)  966 

END  967 

END  966 

END  969 

END*  970 

TEMP-  TL  TEMP  971 

END*RETURN  TRUE  972 
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END 

<V73 

END; 

<)74 

♦ ♦ 

<575 

♦♦  RUNTIME  MONITOR  AND  INITAIZATION  RTNS 

976 

** 

977 

PRINTS-  PROC()» 

976 

begin; )» 

979 

S-  GOERS*  PRINT(|«C0ERCIQNS<'), 

900 

WHILE  S REPEAT  DO 

981 

J-  VALUE  (HD  S)* 

982 

PRINT(HD  S»  LITLIST(J)*  GETPkOPCHD 

S*-PAIR))*  S- 

TL  S 

983 

END* 

984 

S-  MIXEDCL*  PR  INT( MMIXEDCL  ♦ POSITIVE 

CLAUSESk)* 

985 

WHILE  S REPEAT  DO 

986 

PRINT(J-  NAM£OF(HD  S)*  GEirRCP(J*- 

POSLIT)*  I'FRON^  * 

LJTLIST!HD 

907 

S) )*  S-  TL  S 

908 

END* 

989 

RETURN  TRUE 

990 

END 

991 

END; 

992 

OTTER-  PROC(X)* 

993 

BE6IN(S*STIME)* 

994 

ANDSW-  FALSE* 

995 

PRINTS!  )* 

996 

X-  REMCO(X)* 

997 

IF  ATCMCHD  X)  THEN  S-  L IS T ( L IS T ( X ) ) 

998 

ELSE  IF  ATOM(HD  HD  X)  THEN  DO 

999 

IF  ANDSW  THEN  S-  LIST(X)  ELSE  DO 

1000 

S-  X*  WHILE  S REPEAT  DO 

1001 

HD  S-LIST(HD  S)*  S-  TL  S 

1002 

END  * S-  LIST(X) 

1003 

END 

1004 

END 

1005 

ELSE  S-  X* 

1006 

NEGS-  NIL* 

1007 

WHILE  S REPEAT  DO 

1008 

NEGS-  GENCLAUS(6ENSYM( »*NIL*HD  S) 

«N£GS*  S-  TL  S 

1 

1009 

END* 

1010 

CLEARSYS!  )* 

1011 

CLEARSYS-NIL* 

1012 

GARBCOLLC )* 

1013 

COPY-COPX* 

1014 

PRINT!  »»START  OF  RUNM*  STIME-TIME!  ) ) * 

1015 

S-  RTM!NEGS*MIXEDCL*COERS)* 

1016 

PRINTHIS!S)*  PRINT!  TIME!  ) -ST  IME  ) * PR  INT ! COPYF  A I L ) * PRI  NT ! ««EQ  J»» ) * 

1017 

PRINT(i«RESOLUTIONSk*RCNTR*»‘RESOLVENTS 

GE  NER  AT  EOi»*RGEN*i‘ ACCEPTED 

1018 

>‘*RACCPT) 

1019 

* 

1C20 

PRINT!kDUPLICATES»‘,OCNTR*i‘CCMPLEXi«,CNTR*i‘OEEP»',OEEPCNTR)  * 

1021 

STOP! ) 

1C22 

END 

1023 

END; 

1024 

CHGCHAR!-.*10) ; 

1025 

CLEARSYS-PPQC!  )* 

1026 
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BEGINO/  1027 

GARaCCLLO*  1026 

BALI-  EXECUTE-  VFRQML.-ML#  1029 

ORDINAL.-ORDI. -IFROHIO.-INITIAT. -1N1TIQ.-INITUNA.«SIL>  1030 

UNARYLI  IMTINF.-INF  IXLI  .-INITLAP.-MACRQLI  .-NIL»  1031 

1N1TCOO.-CONGENL.-INITUPL.-OPLIST.-IN1TMIS.-NIL»  1032 

REA0.-R0T0KEN.-RD1TEM.-GETLIST.-GETVECT.-GETV.-NIL>  1033 

LXSCAN.-REAOIN.-TRANSLA.-MACOEF.-MACROLI  .-INFIX-UNAR  Y-NIL>  10  3<t 

BRACKET-  FNOTN.-GeTNEXT.-ANALYSE.-PEMCOM.-KtMSEP.  -NIL.  1035 

OP  ERROR. -EXP  AND. -EXL IS. -CODE  GEN. -SUbLBLS. -NIL.  1036 

COMP.-  GVAR.-  GCCN.-GCALLS.-  ARGLIST.-  GKEFS.-  ASS.-L8L.-  1037 

GENL3L.-  1036 

GLAMdDA-EXCHl.-EXCH2.-  GPR0P-SAVL1.-SAVL2.-RESTL1.-RESTL2.-NIL»  1039 
GRETUPN-  GPROGN-GGQ-GCOND-  GE L SE . -GTHE N. -G AND- GOP -N I L»  lOAO 

GOUOTE-GSt TQ-ASSIGN.-GWHILE-GFUR-CGCHECK. - MAKPPQPS-PRTP.-NIL.  lOAl 

SETPRCPLI-  1NFIX>NIL).SETPR0PL(-UNARY.N1L)»  10A2 

SETPRC PL ( -MACRO. NIL) . SE TP ROP L ( - CODE G. N I L ) . SE TPRU PL ( - I NS TR. N I L ) 109  3 

, ICAA 

SET  PROP! ( -INFIXLI ..NIL) .SETPROPL (-UNARYLI..NIL).  1CA5 

SETPROPLI  -MACRCLI..NIL )»SETPROPL(-CaDGENL..NlL)  10A6 

. SETPROPL ( -OPLIST.. NIL).  REMOVE  X . -MME ANS-MMATCH . -T MAC . -MATCH . - 10A7 

NIL.  lOAB 

BUILO.-GENNAM. - AOOON-COO £G£ N -CUM  PI L£ - I FROM  I 0-M AC  0 £F - CRO I N AL -N 1 L 10^9 
. 1050 

RDTOKEN-READ-TRANSLAT-  MGO . - ME QU AL  . -N I L.  1051 

CHAR. -NIL.  1052 

END  1053 

END)  1059 

CH6CHAR(-..ll);  1055 

RTM-  PROC(NEGS.MIXEDCL.CGERS).  1056 

BESINIFInISHED.N.CURCONTE.NEGLIT.NEGCL.M.USET.CL.REDO. MSET.M.  1057 

RETAIN.  1056 

NUMSOLUT.UNIFOEPT).  1059 

DETAIL (NEGS).OETAIL(FINI SHED).  1060 

WHILE  -(N.NEGS)-NEGS  REPEAT  DO  1061 

OETAIL(N).  OETAIL(OONE).  1062 

IF  SAVER  THEN  DO  1063 

IF  SAVER(N)  THEN  DONE  - Ni  DONE  1069 

END  ELSE  DONE-  N«DCNE.  10o5 

NEGCL-LITLISKN).  NEGL I T = SE  L£  C T 1 ( NE  GC  L ) . REDO-  FALSE.  1066 

DETAIL! NEGCL). DETAIL (NEGLIT).  1067 

NEGCL-CQPY(NEGCL).  1068 

IF  NEGPRINT  THEN  1069 

PRINTCKNEG  clause  1S«‘.NAME0F<N).«'HTERAL  ISk.NcSLIT).  1070 

NUMSOLUT-O.  1071 

RCNTR-  RCNTR+1.  1072 

MSET-LQOKUP(HD  NE GL I T. PR EOCH A 1 ) . 1073 

WHILE  -{ M.MSET)-MS£T  REPEAT  DO  1079 

F INI  SHED -NAXLITS-CLENG1H(M)-CLENGTH(N)+1.  1C  75 

IF  FINISHED  GE  0 THEN  DO  1076 

PQS-  POSLIT  UF(NAMEUF(M)  ).  1077 

OETAIL(N).OETAIL(M).DETAIL(PUS).  1078 

UNIFOEPT-0.  1079 

PENDING-NIL. CGRIO-IOC.  1080 
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BYPASS-  N1L»  1081 

IF( (USET-MGUSET(CQPY(NEGLIT)»P0S»0»FINISH£O,NIL) ) NE  • 1082 

NGGOQD)  THEN  DO  1083 

IF  CLAUSEPR  THEN  1C8<. 

PRINKi'RESOLYE  Wl  TH;» , NAMEOF  ( fi  ) ) » 1005 

WHILE  -(U.USET)-  USE!  REPEAT  DO  1086 

0ETAIL(U)»DETAIL(USET)»  1087 

RETAIN-  TRUE»  CL-  GENNEG( N» CUP Y ( NE GLI T ) » U»  1088 

NEGCL)»  1009 

0ETA1L(CL)>  109C 

RGEN-RGEN*1»  1091 

RETAIN-  OELATE(CL»  RETAIN)^  1092 

IF  EriPTYCLA(CL)  THEN  RETURN  CL  ELSE  DO  1093 

IF  RETAIN  THENdF  C LMEPIBEK  ( CL » OUN  E ) THEN  109^ 

RETAIN-  FALSE  ELSE  RETAIN-  1095 

-•CLM£MBtR(CL#N£GSn»  1096 

IF  RETAIN  THEN  ADONEGS(CL)  1097 

, IF  CLAUSEPR  AND  RETAIN  THEN  DO  1098 

PRINK  »>RESOLVENT  I S A , N AMEOF  ( CL  ) » L I TL 1 S T ( C L 1099 

))p  1100 

PRINK  (‘MERIT  VALUE  I MEK I T VA L (CL  ) ) / 1101 

PRINKj^PCOL  size  is  <‘»LENGTH('(EGS»  ) 1102 

END  1103 

END  IlOA 

END  1105 

END  1106 

END  1107 

END»  1108 

IF  (HD  NEGLIT  EQ  ECl)  OR  (HD  NEGLIT  EQ  EQ2)  THEN  DO  1109 

RCNTR-RCNTR+1»  1110 

BYPASS-  (HO  NEGLIT  EQ  E02)«  1111 

M-REFLEX.  1112 

FINISHE0-HAXL1TS-CLENGTH(n )♦!,  1113 

DETAIL(FINISHED)  . XllA 

UNIFDEPT-1»PEN0ING-NIL/CCR 1D-100»  1115 

IF(USET-MGUSEKC0PY(H0  TL  N£GLIT)»CaPY(HO  TL  TL  N£GL1T)»0  1116 

,FINISHED»NIL)  1117 

) NE  -NOGOQO  THEN  DO  1118 

DETAIL(USET),  1119 

IF  CLAUSEPR  THEN  1120 

PRINKi'RESOLVE  WITH)*,  NAMEOF  ( M » ) » 1121 

WHILE  -(U.USEK-USET  REPEAT  DO  1122 

DETAIL(U),  1123 

RETAIN-TRUE»CL-GENNEG(N,M,C0PY(NEGLIT), U»NEGCL)»  1129 

RGEN-RGEN+l,  1125 

RETAIN-OELATE(CL, RETAIN),  1126 

IF  EMPTYCLA(CL)  THEN  RETURN( CL ) ELSE  DO  1127 

IF  RETAIN  THEN  (IF  CL NE MB 6R ( C L , DONE)  THEN  RETAIN  1128 
- FALSE  ELSE  1129 

RETAIN--CLMEMBER(CL,NEGS) ),  1130 

IF  RETAIN  THEN  ADDNEGS(CL)  1131 

, IF  CLAUSEPR  AND  RETAIN  THEN  DO  1132 

IF  CLAUSEPR  THEN  1133 

PRINT( WRESULVENT  I S R » NANEOF ( CL ) ,L I TL I ST ( C L ) ) , 1139 
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PR1NT(»«P00L  SIZE  IS  «« , L E NOTH  ( NE  GS  ) ) 1135 

END  1136 

END  1137 

END  1136 

END  1139 

END*  11^0 

IF  (HD  NEGLIT  EQ  E(j1>  OR  (HD  NEGLIT  EQ  EQ2)  THEN  DO  ll<il 

BYPASS-  NIL*  11<*2 

1-  TRANS,  11A3 

F INI  SHED -HAXLITS-CLENGTH(N)-1,  llAA 

IF  FINISHED  GE  0 THEN  DO  11A5 

IF  CLAUSEPR  THEN  11<.6 

U«  NIL»LIST(  LIST(EQ2*  CQPY(HO  TL  N£  GL  I T ) * - Z Z Z ) , ll<t7 

LIST(  EC2,  -ZZZ*CnPY(HO  TL  TL  NEGLIT))),  11<*8 

PR  INT(«‘RES0LVE  wITH*‘,NAMbOF  ( M)  ) , 11<(9 

RETAIN-TRUE*  1150 

CL-  GENNEG(N,M,C0PY(NEGL1T),L,NEGCL),  1151 

RGEN-  RGEN+1,  1152 

IF  CLAUSEPR  THEN  1153 

PPINT(#RESOLVENT  I S »< , NA  MEOF  ( C L ) , L I TL  I S T ( CL  ) ) , 1154 

RETAIN-  DELATE(CL, RETAIN),  1155 

IF  CLAUSEPR  THEN  1156 

PRINT(RPOOL  SIZE  I S'* , LE  NG  TH  ( NEG  S ) ) , 1157 

IF  RETAIN  THEN  (IF  C LNE NBER ( C L, DONE  ) THEN  RETAIN-  1156 

FALSE  ELSE  RETAIN-  1159 

-CLN6NBER(CL,NEGS)  ),  1160 

IF  RETAIN  THEN  ACONEGS(CL)  1161 

END  1162 

END,  1163 

IF  REDO  THEN  AODNEGS(N)  1164 

END  1165 

END  1166 

END)  1167 

COMPLEX-  PRDC(X),  1168 

0 1169 

END)  1170 

ONCE-  PROC(LIT),  1171 

BE6IN(J,K),  1172 

J-NA1E0F(,'1IXE0PAP(CURC0NTE)  ),K  -NEGPAR(CURCONTE),  1173 

WHILE(-INPUTCL(K)  ) REPEAT  DO  1174 

IF(NAME0F(MIXEDPAR()O  ) EQ  J)  THEN  RETURN  FALSE,  1175 

R-  NEGPAR(R)  1176 

END*  1177 

RETURN  TRUE  1178 

END  1179 

END)  1180 

ONCE  PARTEVAL  ONCE)  1181 

UNIQ  - PROC(N,P,UOUT),  1182 

BEGINO,  1183 

RETURN  UOUT  EQ  NR  1184 

END  1185 

END)  1166 

SYMl.  PROC(N*P,UOUT),  1187 

BEGINO*  1188 


[ 

i 

% 


T' 


*1 


I 


IF  GROUNO(N)  OR 

GROUND! P » 

THEN 

RETURN 

1189 

TRUE  ELSE  RETURN 

FALSE 

1190 

END 

1191 

END) 

1192 

OOWN30P  -PROCJPRED)* 

1193 

BE6IN( )> 

119<. 

HERIT-HERIT>30» 

RETURN  TRUE 

1195 

END 

1196 

END) 

1197 

D0WN30  PARTEVAL  DQWN30P) 

1196 

PREDCHAI-  NIL) 

1199 

GENCLAUS(-REFLEX,-(E01  X 

X)*  NIL); 

1200 

GENCLAUS( -TRANS* NIL»NIL) 

; 

1201 

SAVER-NIL) 

1202 

SELECTl-  PROC(LITS)* 

1203 

BE6IN(r)* 

120R 

Y-LITS*  WHILE  Y 

REPEAT  DO 

1205 

IF  HD  HD  Y EQ 

-MARK  THEN  Y- 

TL 

Y ELSEIF 

1206 

(GETPROP(HD  HD  Y ,-PE) 

NE  NIL  ) 

THEN  Y-  TL  Y ELSE  RETURN  HO  Y 

1207 

END* 

1208 

PRINT(#NQ  LITERAL  MAY  BE  SELCTED»** 

LITS)* 

1209 

RETURN  HD  Y 

1210 

END 

1211 

END) 

1212 

COERS-NIL) 

1213 

RCNTR-  RGEN-  PACCPT  -0) 

121'» 

NOTEQLIS-NIL) 

1215 

COMPLET  - PEFNS-  NIL) 

1216 

DONE-NIL  ; 

1217 

MIXEDCL-  NIL) 

1218 

COPYFAIL-  0) 

1219 

BVARS-  TRUE) 

1220 

CLAUSEPR-  TRUE; 

1221 

CORID-  0) 

1222 

DEBUG-FALSE; 

1223 

EQl-  -EOl)  E02-  -EQ2) 

122<. 

CLAUSEID-l; 

1225 

OONE-NIDHAXLEVEL-IO; 

1226 

BYPASS-  nil;  NAXCOERS-l; 

NOTEQLIS- 

NIL* 

1227 

maxcplex  - 6) 

1228 

HAXCPX-  65) 

1229 

MAXNEST-7) 

1230 

NEGPRINT  - TRUE; 

1231 

NOSIMPLE  - FALSE) 

1232 

TRACE-l; 

1233 

NAXLEVEL-100) 

123<t 

NAXLITS-IO; 

1235 

DO 

1236 

SAVEBALMI.'CILEMMAA)  , PRINT!  - dilemma* 

-JUNE*  76) 

1237 

END* 

1238 

CLOSEIxDILEMMA#)) 

1239 

1 


f 


f 
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APPENDIX  II 


* 

* 


1 

2 

3 


* GEOMETRY  PROGRAM  LISTING 

« 5 

* SYSTEM  UTILITIES  AND  SWITCHES  fc 

ONEWAY*  TRUE}  7 

ALWAYS*  FALSE;  ^ 

CONEF-IFROMIO  ; 

MAXNEST-5;  10 

HAXLEVEL-15;  H 

MAXFREE-4}  12 

HAXCPX-120;  13 

CONSTANT  1^ 

STANG>  RTANG»  R 15 

ENO; 

CONSTANT  17 

I le 

END;  19 

CONSTANT  20 

E » P^ K > N» M » C » D » Q » B 21 

END;  22 

COEF-CONEF;  23 

MAXCOERS-l;  2A 

POINTQ-  PROC(X)»  2b 

MEMRER(X»*(E  P K N M C 0 Q 8))  2o 

END;  27 

TYPE  KPT  - POINTQ;  26 

TYPE  YPT-  POINTQ;  29 

TYPE  ZPT«  POINTQ;  30 

TYPE  UPT-  POINTQ;  31 

TYPE  VPT*  POINTQ;  32 

TYPE  WPT  » POINTQ;  33 

TYPEG*  PROC(X)  , 39 

MEM6ER(X,«(R  1 ))  35 

END;  36 

RO-  PROC(X»,  37 

X EQ  *R  38 

END;  BQ*  PRCC(X),  39 

X EQ  -I  ‘*0 

END;  ‘•1 

TYPE  TYR  - RQ;  TYPE  TYB  « BQ;  92 

• 93 

♦ SPECIAL  CPROCS  OF  GEOMETRY  99 

^ 95 

CSYMP*  PROC(N»P,UOUT ),  96 

UOUT  EQ  ML  '*7 

END;  ‘'8 

LFIPP*  PROC(N»P>UOUT )»  99 

BEGIN! ),  50 

WORKING  « 51 

( 52 

IF  VARIABLE(N)  THEN  FALSE  ELSE  IF  VARUBLE(P)  THEN  FALSE  ELSE  53 

IF  GROUND(N)  THEN  TRUE  ELSE  IF  GROUNO(P)  THEN  TRUE  ELSE  FALSE  59 


1 
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s 


) 55 

» IF  DEBUG  iHEN  PR  1 MT ( WQRKI NO) , RETURN  WORKING  56 

END  5 7 

ENDl  5B 

LFLIPP  CPROC  LFLIPI  59 

* 60 

♦ PARTIAL  EVALUATORS  OF  FUNCTIONS  AND  PREDICATES  61 

♦ CANONICAL  ORDERINGS  ARE  DONE  HERE  62 

♦ 63 

RLINE-  PROC(FN),  6A 

BE6IN(X>Y)>  65 

CRACK(-(T1  X Y>,FN)»  66 

IF  VARIA8LE(X)  THEN  DO  67 

IF  VARIA8LE(Y)  THEN  DO  66 

NERIT-MERIT+10*  69 

IF  X LT  Y THEN  RETURN  FN,  70 

IF  X EQ  Y THEN  DO  71 

RETAIN  ■ FALSEf  RETURN  FN  72 

END#  73 

RETURN  LIST(T1.Y>X)  7R 

END.  75 

RETURN  FN  76 

END>  77 

IF  VARIASLECYJ  THEN  RETURN  L I S T ( T 1# Y, X ) , 76 

IF(HD  X EQ  -INTER)  THEN  RETURN  FN>  79 

IF(HD  Y EQ  -INTER)  THEN  RETURN  FN»  80 

XPT-  HO  X»  YPT-  HD  Y»  81 

IF  XPT  EQ  YPT  THEN  DO  82 

RETAIN-  FALSE*  RETURN  FN  83 

END*  8A 

IF  CONEF(XPT)  LE  CONEF(YPT)  THEN  RETURN  FN*  85 

RETURN  LIST ( Tl*LISn YPT) *LIST( XPT)  ) 86 

END  8 7 

END)  88 

RANG-  PROC(FN)*  89 

BEGIN(T1*X* Y*2)*  90 

CRACK(-(T1  X Y Z)*FN)*  91 

IF  EQUAL(X*Y)  THEN  RETAIN-  FALSE*  92 

IF  EOUAL(X*Z)  THEN  RETAIN-  FALSE*  93 

IF  EQUAL(Y*Z)  THEN  RETAIN-  FALSE*  99 

IF  -CRACK(-(T1  XPT  Y ZPT)*FN)  THEN  RETURN  FN*  95 

IF  ( COLINP(FN)  EQ  TRUE)  THEN  RETURN  L IS T( -S TANG ) * 96 

IF  CONEF(XPT)  LE  CONEF(ZPT)  THEN  RETURN  FN*  97 

IF  -PAIRO(Y)  THEN  98 

IF  -VARIABLE(Y)  THEN  Y-  LIST(Y)*  99 

RETURN  LIST{T1*LIST(ZPT)*Y*LIST(XPT))  100 

END  101 

END*  102 

L PARTEVAL  RLINE;  A PARTEVAL  RANG;  103 

NIOPTP-  PROC(FN)*  109 

BE6IN(X*Y*TD*  105 

CRACK(-(T1  X Y)*FN).  IF  ECUALt  X*Y)  THEN  RETAIN-  FALSE*  106 

RETURN  FN  107 

END  108 
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ENO;  10<> 

MIDPT  PARTEVAL  ^lOPTP;  110 

0IFF3-  PROC(PREO),  111 

BEGINO*  112 

CPACK(«(Ti  XPTi  YPTl  ZPTD.PREC))  » 113 

IF  EQUAL(  XPTI,  yPTl)  THEN  RETURN  FALSE»  !!<• 

IF  EQUAL  (XPTlfZPTl)  THEN  RETURN  FALSE*  115 

IF  6QU4L<ZPT1,YPT1)  THEN  RETURN  FALSE*  11b 

IF  CRACK(-(T1  XPT  yPT  ZPT)*PPEU)  THEN  RETURN  TRUE  * THEN  00  117 

IF  ■'  MEMBER(XPT*LIST(ZPT*UPT*  VPT*WPT  ))  AND  ( -Nc  NB6P  ( YPT*  119 

LIST(  120 

ZPT*UPT*VPT*WPT)>)  THEN  RETURN  TRUE*  RETURN  FALSE  121 

ENO*  122 

RETURN  PRED  123 

ENO  129 

ENO;  125 

01FF3  PARTEVAL  0IFF3J  12b 

OOWNl  • PROC(PREO)*  IZl 

BEGINO*  12b 

IF  -CPACK(*(Tl  XPT  YPT  ZPT  UPT  VPT  WPT)*PRED)  THEN  NERIT*HERIT^  129 

30*  130 

RETURN  TRUE  131 

ENO  132 

ENO;  133 

OCWN  PARTEVAL  OOWNl;  139 

COLINP-  PROC(FN)*  135 

begin; Z* SI* S2) * 13b 

IF  CRACK(-(Tl  XPT  YPT  ZPT»*  FN)  THEN  DO  137 

IF  ?1EM3(TL  FN,CQLlNtkl  THEN  RETURN  TRUE*  138 

RETURN  FALSE  139 

END*  190 

IF  CRACK<-(T1  XPT  YPT  Z)*FN)  THEN  00  191 

IF  VARIABLE(Z)  THEN  DO  192 

0rNO<Z,LIST(-INTER*-(R)*CORlD  • C OR  ID* 1 * L 1 S T (X P T ) * 193 

list; YPT)*CQRIO»CGRI 0+1* CCRIL-CORI 0*1 ) )*  199 

RETURN  TRUE  19^ 

END*  196 

IF  CRACK(-;T1  TYR  T1  UPT  VPT  SI  S2)*Z»  THEN  DO  197 

IF  ;XPT  EQ  UPT)  AND  )YPI  EO  VPT)  THEN  RETURN  TRUE*  196 

IF  VARIABLE;S1)  and  VAR1A6LE(S2)  then  DO  199 

6ino;si*xpt),8Ino;s2*ypt)*0ind;ti*«;r))*return  true  150 

ENO*  151 

IF  - CRGSSES;lIST; -INTtR*XPT* YPT*UPT* VPT) ) then  return  152 

FALSE*  153 

RETURN  TRUE  159 

ENO  155 

ENO*  156 

IF  crack;«;ti  z xpt  ypt)*fn)  then  return  colinp;list;ti*list;  157 

YPT)*  158 

list;xpt)*z)  )*  159 

RETURN  FN  160 

ENO  161 

ENO;  162 


-161- 


CQLIN  PARTEVAL  CQLINP;  163 

CROSSES-  PROC(PREO),  16<* 

BEGZN( r^Lf Sf J) > 163 

IF  -«  CRACK(-«T  XPT  YPT  UPT  VPT)»  166 

PKEO)  THEN  RETURN  PREO»  167 

IF  COEF(XPT)  GT  COEF(YPT)  THEN  DO  168 

T-  XPT*XPT-  YPT»  YPT-  T 169 

END*  170 

IF  COFF(UPT)  GT  COEF(VPT)  THEN  DO  171 

T-  UPT»  UPT-  VPT»  VPT-  T 172 

END#  S-  LIST(XPT# YPT),  J-  L I ST ( UP T , V P T ) , 173 

L-  LQOKSP,  while  L REPEAT  DO  17<* 

IF  MEMb(S,  HO  L)  THEN  RETURN  -'MEM9  (J,HO  U,  L-  TL  L 173 

END,  176 

RETURN  TRUE  177 

END  178 

ENJ  ; CROSSES  PARTEVAL  CROSSES;  179 

INTER-  PROC(FN),  180 

BE6lN(T,Sl,S2,S3,S<.»TYl,TY2,RF.P,lTtM),  181 

IF  CRACM-(T  TYl  TY2  XPT  YPT  UPT  YPT),FN)  THEN  DO  182 

IF  CQNEF(XPT)  GT  CONtF(UPT)  THEN  DO  183 

T-  XPT,  XPT-  UPT,  UPT-  T,  T-  VPT,  VP T - YPT , Y PT - T 184 

END,  183 

Sl-PNAHtS,S2-LIST(XPT,YPT,UPI,VPT),  186 

WHILE  SI  REPEAT  DO  187 

ITEM-HO  HO  SI,  REP-  HD  TL  HO  SI,  188 

IF  E(jUAL(S2,  TL  TL  ITEM)  THEN  DO  189 

IF(TY1  EO  HD  ITEP')  THEN  DO  190 

IF(TY2  EQ  HO  TL  ITEM)  THEN  RETURN  REP,  191 

IF  VARIABLE(Ty2)  then  DO  192 

6IN0(TY2, HD  TL  ITEM),  RETURN  PEP  193 

END  194 

END,  193 

IF(TY2  EQ  HD  TL  ITEM)  THEN  DO  196 

IF  VARIABLE! TYl)  THEN  DO  197 

BIN0(TY1,H0  ITEM),  RETURN  PEP  198 

END  199 

END,  200 

IF  VARIABLE! TYl)  AND  VARIABLE ! TY2  ) THEN  DO  201 

8IND!TY1,H0  I TE M ) , B I NO ! T Y 2 , HD  TL  ITE^), RETURN  REP  202 

END  203 

END,  204 

SI-  TL  SI  203 

END  206 

END,  207 

IF  CRACX!-!T  TYR  T YR  SI  XPT  S2  YPT),FN)  THEN  ! IF  XPT  EQ  YPT  208 

THEN  RETURN  209 

YPT),  210 

IF  CRACK!-!T  TYB  TYR  XPT  SI  S2  YPT),FN)  THEN  ! IF  XPT  EQ  YPT  211 

THEN  212 

RETURN  XPT),  213 

IF  CRACK!-!T  TYB  TYR  SI  XPT  S2  YPT)  ,FN)  THEN!  IF  XPT  EQ  YPT  214 

THEN  213 

RETURN  XPT),  216 
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IF  C.?^CK(-(T  TYB  TY?  SI  S2  S3  S'tl.FN)  THEN  DO  217 

IF  PAlPg(SH  THEN  SI-  HO  SI,  IF  PA1RC(S2»  THEN  S2-  HD  S2,  21H 

IF  PAIBC(S3)  THEN  S3-  HD  S3,  IF  PAlRt(S<.)  THEN  S<.«  HO  S<*,  219 

IF  SI  EO  S3  THEN  RETURN  SI,  IF  SI-  S^  THEN  RETURN  Si,  220 

IF  S2  EQ  S3  THEN  RETURN  S2,  IF  S2  EO  S<r  THEN  RETURN  S2  221 

END,  222 

RETURN  Fn  223 

END  224 

END;  225 

INTER  PARTEVAL  INTER;  226 

* 227 

♦ DILEMMA  assertions  AND  THEOREMS  22B 

* 229 

♦ angle  equality  230 

ASYM  COER  EQANG(X,Y),EQANG( Y,X)  ; 231 

ANAME  COER  A ( X , Y, Z ) , A ( S , Y, R ) , COL  IN ( X, S , Y » - COL  I N ( Z , R, Y I ; 232 

ANAMEl  COER  A(X,Y,Z),A(S,Y,Z),CQLIN(X,S,Y);  233 

ANAME2  COER  A ( X, Y, Z ) , A ( X, Y,R ) ,COLIN( Z,R, Y ) ; 234 

VERTICAL  THEOREM  EC ANG ( A ( X, Y, Z ) , A ( U, Y, W ) ) FROM  C OL I N ( X, Y , w)  ^ CQLIN(U  235 

, Y 236 

,Z)  237 

; 238 

AN6R  COER  A(X,Y,Z),A(Z,Y,X);  239 

UNIO  CPROC  ANAMEl;  UNIC  CPROC  ANAME2;  UMQ  CPROC  ANAME;  240 

LFLIPP  CPROC  ANGR;  241 

ALTEP2  THEOREM  E QANG ( A ( Z, Y, X ) , A ( Z , R , S ) ) FROM  P AR ALL t L ( L ( x , Y ) , L ( R, S ) ) 242 

^ COLIN(P»Z,Y) ; 243 

ALTEBl  THEOREM  EO ANG( A ( X, Y, Z ) , A ( U, Z , Y )»  FROM  P AP ALL E L < L ( Y, X > , L ( U, Z >) ; 244 

APEFLX  ASSERT  EQANG(X,X);  245 

ATRANS  THEOREM  EOANG(X,Y)  FROM  £QANG(X,Z)  ^ EOANG(Z,Y)  ^ 00rN30(X);  246 

APART  THEOREM  EQ AN&( A ( X, U, Z ) , A( V,  R,T))  FROM  EOANG  ( A ( X, U, Y ) , A ( V, R, W >»  247 

EQANG(A(Y,U,  Z),  A(w,R,  T)  ) * 00WN30(X);  248 

ACONG  THEOREM  EQAN6( A ( X, Y, Z ) , A ( U, V, W) ) FROM  CONG { X, Y , Z, U, V, W ) 249 

01FF3(X,Y,Z)  * 0IFF3(U,  V,W)  ; 250 

ACOR  THEOREM  EOANG ( A ( R , Y, X ) , A ( Z, X, J ) ) FROM  P AR AL LE L ( L ( W, R ) , L ( U, Z ) ) 251 

* COLIN(W,Y,R)  ^ C0LIN(U,X,Z)  COL  IN  ( Y , X,  J ) ; 252 

AISSOC  THEOREM  EQANG( A ( X, Y, Z ) , A ( Y, X, Z I ) FROM  EQL INE ( L ( X, Z ), L ( Y, Z ) ) ; 253 

ATRANS  THEOREM  EQANG(X,Y)  FROM  EOANG(X,Z)  EQANG(Z,Y)  ^ DOWN30(X);  254 

RTEQ  THEOREM  EOANG ( A ( X , Y, Z ) , RTANG ) FROM  EQ ANG ( A ( T, Y, X ) , R T AM G ) 255 

* COLIN( T, Y,Z ) ; 256 

♦SEGMENT  EQUALITY  257 

LFLIP  COER  L(X/Y),L (Y,X);  258 

LSYM  COER  EQLINE(X,Y),EQLINE(Y,X);  259 

LPARBASE  THEOREM  EQL  INE ( L ( X, Y ) , L ( Y , Z ) ) FROM  260 

E0LINE(L(2,W),L(W,V))  - PARALLEL ( L ( Y,W ) ,L « X, V) ) * COLIN(X,Y,Z)  * 261 

COLIN(Z,W,V)  A ONCE(X)  ; 262 

LCDN6  THEOREM  EQL INE ( L ( X, Y ) , L ( U, V ) ) FROM  CONG ( Y, Z, X, V, W, U ) a 0IFF3(X,  263 

Y,  264 

Z)  265 

A DIFF3(U, V,R) ; 266 

SYMl  CPROC  LSYM;  SYMl  CPROC  ASYM;  267 

LMID  ASSERT  EQL I NE ( L ( X , M I OP Tt X, Y ) ) , L ( Y , M lOP T ( X, Y ) ) ) ; 268 

LPART  THEOREM  E QL I NE ( L ( X, Y ) , L ( U, V ) ) FROM  269 

EQLINE(L(X,R),L(U,S)  » a EQL InE ( L ( R, Y ) , L ( S, V » ) a caLIN(X,fi,Y)  a 270 
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C0LIN(U»  271 
S»V)J  272 
LTRANS  THEOREM  EQL  INt  ( L ( X,  r ) , L ( U»  V ) ) FROM  t QL  INF  ( L ( X,  Y ) » L ( S . T ) ) 273 
EQLINE(L(  S»T)>L(U»V)  ) ^ D0WN30(X)>  27<* 
LREF  ASSERT  EOLIN£(X,X)|  275 
LISOC  THEOREM  EQL 1 NE ( L ( X» 2 ) » L ( Z « Y ) ) FROM  EOAMG ( A ( Z# X, Y ) > A ( X » Y« Z ) ) ; 276 

* PARALLEL  LINE  THEOREMS  277 
PARTRANS  THEOREM  278 
PARALLEL( X, Y)  FROM  P AR ALLE L ( X , Z ) * P AR ALLb L ( Z, Y ) ; 279 
PCRl  THEOREM  P AR ALL E L ( L ( X» INT ER ( TP  1 * T P2, L» V, X» Z ) ) » L ( X,  Z ) ) 280 
FROM  CRQSSES(X»Z»U»V) ; 281 
PARINT  THEOREM  PAR ALLE L ( L ( INTER ( T1 » T 2, X , Y, U» V )* V ), L ( S# T ) ) FROM  282 
PARALLEL! L( S>T » »L ( U>V) ) ; 283 
MIDPAR  THEOREM  28A 
PARALLEL(L(Y»U)»L(Z>V)  ) FROM  285 
EQLINE (L ( Z» Y) ,L ( Y, X ) ) ^ C OL I N ( Z , Y> X ) * E OL IN E ( L ( V » U ) » L( U» X ) ) a 286 
COLIN(V#U»X)  A ONCE(X)}  287 
RCR2  THEOREM  P AR AL L E L ( L ( X . IN  TER { TP  1 , TP2» X, Z , U# V ) ) » L ( X » Z ) ) FROM  CROSSES  288 
(X,Z>U»V);  289 
PEND  THEOREM  P AR ALL  EL ( L ( X, Y ) » L ( X, Z ) ) FROM  COL  1 N ( X , Y , Z ) J 290 
PBASE  theorem  PARALLEL(L(X»Y)»L( J»V)>  from  291 
PARALLEL! L( S»Y)»L(U»V)  ) a COL  IN ! X» S» Y ) J 292 
PEXT  THEOREM  P AR ALL E L ! L ! X, Y » » L ! U» V ) ) FROM  293 
PARALL£L!L!X.Y)»L!R»V)  ) a COL  IN ! R ^ 0^ V ) ; 29A 
PSYM  COER  PARALLEL! X,Y  )»  PARALLEL!  Y»X)}  295 
PI  THEOREM  PARALLEL!L!X»Y)»L!L^V) ) FROM  Efl ANG ! A 1 Y» Z » R ) » A ! V» W, R ) ) a 296 
COLIN!X,Y,Y)  A C0LIN!Y,W»V)  a COL  IN! S» Z^ W> R ) ; 297 
P2  THEOREM  P AR ALL  EL ! L ! Z» Y ) » L ! W» V ) ) FROM  298 
£OANG!A!Y,Z»W)»A!V»»!*S)  ) a C OL  I N ! Z » U » S ) ; 299 

* triangle  CONGRUENCE  SECTION  300 
CSYM  COER  CQNG!X,Y»ZfU»V»rt)»CONG!U»V»W>X»Y»Z);  301 
CASA  THEOREM  C ONG ! X , Y V>  U ) FROM  302 
EULINE! L ! U» V) »L! X» Y) ) a £Q ANG ! A ! X » Y » Z ) » A ! U» V > W ) » a EQ AN G ! A ! Y » X, Z ) # 303 
A!W>U*V));  30A 

* 305 
CSYMP  CPROC  CSYM;  306 
CSSS  THEOREM  CONG! X » Y» Z » U* V» ^ ) FROM  307 
E3LINE  ! L!  X»  Y)  ,L  !U»  V)  ) a EOL  IN  £ ! L ! Y»  Z ) » L ! V . •! ) ) a cQL  INE!  L ! X»  Z ) » L ! U»  W 308 
));  309 
CSAS  THEOREM  CONG! X> Y> Z> V> m ) FROM  310 
E0LINE!L! X»Y)»L!U»V) ) a EO ANG ! A ! X« Y* Z ) * A ! U» V » n ) ) a EQLI NE ! L ! Y>Z  ) » L ! 311 
V»W)  312 
) 5 313 
CPERM  THEOREM  CONG ! X, Y t Z > U» V> W . FROM  CONG ! Y» Z « X» U ) ; 31A 
CFLIP  THEOREM  CONG!  X,  Y * Z»  U»  •( ) FROM  CONG  ! X,  Z » Y»  U*  Y ) ; 315 
CPAPAL  THEOREM  CONG ! X» Y, Z » X, U» Z » FROM  P AR ALLGM  ! X» U, Z , Y ) ; 316 
CTRANS  THEOREM  CONG  ! X, Y, Z » U. W ) FROM  CONG ! X, Y , Z ^ P# Q» R » a CONGIP#  317 
0/RfU>V*W)  AOawN!X*Y»Z>U»V«W);  318 
CPFF  assert  CONG! X»Y.Z»X, Y>Z)  ; 319 

* 320 

* complexity  MEASSURE  and  selection  functions  321 

* this  section  holds  the  heuristic  information  322 

* 323 
GRNDUNIT-NIL J 32A 
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SELECTl-  PR0C(LITS)»  32t> 

BE6IN( y»  A ) » 326 

Y-LITS»  327 

OETAIL(Y)»  32b 

WHILE  Y REPEAT  DO  329 

IF  HD  HO  Y EQ  -PARALLEL  THEN  330 

DO  331 

A-HO  TL  HO  Y»  332 

IF  PAIRQ(A)  THEN  A-  HD  TL  TL  A,  333 

IF  PAIRO(A)  THEN  A-  HO  A,  33<> 

OETAIL(A).  335 

IF  A EQ  -INTER  THEN  RETURN  HO  Y 336 

END»  337 

♦ TEST  IF  HO  Y IS  IPARALLEL  (L  X (INTER  ...))  ( ) ) 338 

Y-  TL  Y 33<i 

ENO»  3<tO 

Y-  LITS»  WHILE  Y REPEAT  00  381 

DETAIL! Y)»  382 

IF  HO  HO  Y EQ  -MARK  THEN  Y-  TL  Y 383 

ELSEIF  GFTPROPCHD  HO  Y »-PE)  THEN  Y-  TL  Y ELSE  RETURN  HO  Y 388 

ENO»  385 

PRlNT(-N0»-LIT>-MAY,-e6#-SELECTE0>LITS)»  38ts 

RETURN  HO  LITS  387 

END  388 

ENDJ  389 

complex-  PR0C(LITS)»  350 

BEGIN! S»J, FNO,HTcMP,FAIL> PCNT»CNT^ CODE) » 351 

IF  - LITS  THEN  RETURN  0»  352 

IF  FREEVARS!LITS)  6T  MAXFRtE  THEN  RETURN  ICOO,  353 

COO£-TRUE»  358 

IF  LENGTH  (LITSI  EQ  1 THEN  6RNSAVE-  HO  LITS,  355 

PCNT-0,CNT-0,  356 

S-0,  357 

FAIL-  TRUE,  358 

IF  LENGTH(LITS)  LT  (NAXLlTS/2)  THEN  FAIL"  FALSE,  359 

IF  -INP!JTCL!CURCONTE)  THEN  00  360 

J-NAME0F!MIXELPAR!CURC0NTE) ),  361 

IF  MEMBER! J, HYP)  THEN  S-  S-5C  362 

» 363 

IF  OEPTHVAL (CURCONTE)  GT  6 THEN  00  368 

J-  NAM£OF!MIXEDPAR!NEGPAk!CURCONTE) ) ),  IF  M EM B ER ! J , H YP ) 365 

THEN  S-  S-  366 

50  ELSeiF  MEM3ER(NAM£0F !M1XE0PAR!NEGPAK!NEGPAR!CURC0NTE  ) 367 

))),HYP)  THEN  368 

S-S-30  369 

END  370 

END,  371 

WHILE  LITS  REPEAT  00  372 

IF  -!!J-H0  HO  LITS)  EQ  -MARK)  THEN  00  373 

IF  J EQ  -parallel  then  PCNT-  PCNT  +1,  378 

IF  J EQ  -CCLIN  THEN  CNT-  CNT  ♦!,  375 

IF  •’!  GETPROP!  J,-PE)  ) THEN  00  376 

IF  GROUND!HO  LITS)  THEN  DO  377 

IF  MEMBER!HD  LITS,  GRNDUnIT)  THEN  DO  378 
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PRINK  - SUBSUMED* -By>  «GROUND»  -NE6A  1 1 V E » -UNI  T ) * 

RETAIN-  FALSE*RETURN  ICOO 

END 

END* 

CODE-FALSE* 

IF  HASCON(HD  LITS)  THEN  DO 
FND-FALSE*HTEMP-HYP* 

WHILE(-'FNC)  AND  MTEMP  REPEAT  DO 

FNO-  (MGUSET(POSI.IT  OF  (HO  HTE  MP ) * CO  P Y ( HD  LITS)* 
0*0* 

NIL)  NE 

-NOGOOD)*  IF  FND  THEN  FAIL-FALSE* 

HTEMP-  TL  HTEMP 

END* 

IF  FNO  then  S-  S-2C  ELSE  S-  S+10 
END  * DO 

S-  S+2*VARSNUM(HD  LITS)* 

IF  J EQ  -PARALLEL  THEN  FAIL-FALSE* 

IF  J EQ  -CONG  THEN  DO 
S-  S*  1*  FAIL-  FALSE 
END  ELSE  S-  S>1* 

IF  ■’GROUNO(HO  LITS)  THEN  S- 
S+  5 

END 

END 

ELSE  DO 

S-  S+<.»VARSNUM(HD  LITS)  +5 

END 

END  * LITS  - TL  LITS 
END* 

IF  PCNT  G£  3 THEN  RETURN  1000* 

IF  CODE  THEN  DO 

PRINT( -POSSIBLE *- NULL* -CLAUSE )* RETURN  1000 
END* 

IF  fail  THEN  RETURN  iCOO* 

IF  CLENGTH(CURCONTE)  EQ  1 THEN  DO 

IF  GROUND(GRNSAVF ) THEN  GRNDUNIT-  C QP Y ( G RNS AVE ) : GRNOUN I T 

END* 

RETURN  S 

END 

END* 

* 

* THE  INPUT  FOR  THE  G5.1  EXAMPLE 

* 

* Gt)  EXAMPLE  6 
HYP-  -(HI  H2  H3)( 

COLINER  - -( ( (E) (P) (K) ) ( (K)(P)(6)  )((P)(N)(M))  ((M)(N)(P)) 

( (K) (M) (D) ) ( (0) (M) (K)  ) 

( (E)(B)(D))  ((D)(B)(E)) 

( (C) (M) (B) ) ( (P  ) (M) (C)  ) 

( ( E) (N) (C  ) ) ( (C ) (N) (E>  ) ) ; 

HI  ASSERT  PARALLEL(L(K*C)*L(E*D)); 

H2  ASSERT  EQL INE ( L ( E * N ) * L ( N, C ) ) ) 

H3  ASSERT  EOL INE ( L ( K*M ) *L ( M* 0) ) ; 
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379 

380 
3B1 

382 

383 
38A 

385 

386 

387 

388 

389 

390 

391 

392 

393 
39A 

395 

396 

397 

398 

399 
AOO 
801 
802 
803 
808 
805 
80b 

807 

808 

809 

810 
811 
812 
813 
818 

815 

816 

817 

818 

819 

820 
821 
822 
823 
828 

825 

826 
827 
823 

829 

830 

831 

832 


. 


H 


ASSERT  PARALLEK  L(  P»M) » L(  N»M)  > ; ^33 
HYP  ■ - ( HI  H2  H3  H<.  ) } A3A 
L00K5P«-(((K  CMP  N)  (N  M)  (P  M)  (6  0)));  '♦35 
PNAMES»»(((  RkKPOE)E)  ((RkCNDE)t)  ((IRbkHH)P)  A36 
( ( I I E C P M)  N ) ( (R  R E 0 K M ) 0 ) ) J ‘•37 
MEMBER-  MEM3;  ‘•38 
PR0VE(ECLINE(L(£*P)»L(P»K))){  ‘•3<? 
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